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PREFACE 



This program logic manual (PLM) supplements 
the program listing of the 1130 RPG Compiler 
(referred to in this publication as RPG) by 
describing the program. 

The first section of this PLM starts by 
discussing the overall structure of the RPG 
compiler. Following this, each phase is 
described individually and is accompanied 
by a flowchart of the logical elements. 

The second section of this PLM describes 
the main routines of the RPG object program. 
The description contains flowcharts and 

narrative which serve to illustrate the 
cycle of operations within the object 
program. 

Prerequisites and Related Publications : 

Effective use of this publication requires 
an understanding of the RPG language 
contained in the publication IBM 1130 RPG 
Language , Form C21-5002. 



For information on the 1130 Computing System 
beyond the purpose of this publication, refer 
to the following publications : 

1. IBM 1130 Disk Monitor System, Version 2: 
Programming and Operator's Guide , Form 
C26-3717. 

2. IBM 1130 Disk Monitor System, Version 2; 
Program Logic Manual, Form Y26-3714. 

3. IBM 1130 Disk Monitor System, Version 2; 
System Introduction, Form C26-3709. 

4. IBM 1130 Subroutine Library, Form 
C26-5929. 



For titles and abstracts of associated 
publications, see IBM 1130 Bibliography , 
Form A26-5916. 
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INTRODUCTION 



IBM 1130 RPG 

The IBM 1130 RPG language provides an effi- 
cient technique for writing source programs 
that can be translated into object programs 
(machine language) by the 1130 RPG 
compiler. 

1130 RPG consists of a source language and 
a compiler. The source language allows 
definitions of characteristics of the files 
to which the input and output records be- 
long, the fields of input data records, the 
literals, the operations and calculations 
to be performed, and the fields of the out- 
put records. The RPG language entries 
specified on the RPG coding form make up 
the source program. 

The RPG compiler reduces the input/output 
operations and the number of data passes 
to a minimum. Input/output operations are 
reduced by retaining as much source data 
as possible in main storage. All blanks, 
comments, and unrequired fields are delet- 
ed from the source specifications, and the 
resulting compressed source specifications 
are placed in a reserved area of main stor- 
age called a compression buffer. The term 
compression (or compression record) , as 
used in this publication, refers to the 
data compressed from one source statement. 
Compression blocks refers to a group of 
these compressed specifications. Compres- 
sion block one is variable in length de- 
pending on the amount of core storage 
available. All succeeding blocks are of 
fixed length (2560 words) . Examples of 
the compression record formats for each 
specification type are included under 
"COMPRESSION FORMATS. " 

The number of iterations through compres- 
sion records is reduced by placing unique 
field names, literals, and resulting indi- 
cators into tables. The areas allotted 
for the tables are large enough to contain 
all of the entries in most of the programs 
to be compiled. As a result, addresses 
can be assigned to the entries immediately, 
and machine instructions can be generated 
with a minimvim number of iterations through 
compression. 



SYSTEM ENVIRONMENT 
Machine Requirements 
Program Generation 

The minimum machine requirements for gener- 
ating an RPG object program are as follows; 

• 1131 with 8K words of core storage 

• One card-reading device 

• Single Disk Storage Feature 

• One printer (IBM 1132, 1403, or console 
printer. ) 

Object Program Execution 

The minimum machine requirements for the 
execution of an RPG object program depend 
on the I/O configuration used: 

• 1131 with 8K words of core storage and 
single disk storage 

• Input/Output devices as required by the 
object program: 

IBM 1403 Printer, Model 6 or 7 

IBM 1442-5 Card Punch 

IBM 1132 Printer 

IBM 2501 Card Reader, Model Al or A2 

IBM 1442 Card Read/Punch, Model 6 or 7 



Additional Machine Features Supported 

The following system features are support- 
ed for program generation: 

• 1131 with 16K or 32K words of core 
storage 

• A card-punching device if the object 
program is to be punched 

• One or more additional IBM 2 310 disk 
units 
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PROGRAM ORGANIZATION 

As shown in Figure 1, the 1130 RPG compiler 
consists of six major components: the Resi- 
dent Phase, Enter Phases, Assign Phases, 
Diagnostic Phases, Input/Output, and Assem- 
ble Phases. 

The Resident Phase is the first phase of 
the compiler. Some routines within the 
Resident Phase remain in storage through- 
out compilation. These routines handle 
calling a phase, getting and putting a com- 
pression block, printing and reading source 
statements, and printing error notes. 

The Enter Phases read, list, compress, and 
perform diagnostics on the source state- 
ments. Also, a table of filenames is 
created. 

In the Assign Phases, addresses are as- 
signed to Resulting Indicators, defined 
field names, and Calculation and Output 
literals in the compression. Also, a sym- 
bol table is printed. 

The Diagnostic Phases detect errors not 
detected in the Enter Phases, list all 
multi-defined, undefined, and unreferenced 
field names, and print abbreviated error 
messages for all diagnostic errors that 
have occurred during the generation. 

The I/O Phases build a table of file des- 
cription entries and then used this table 
to produce object code for I/O requests 
involving certain devices and processing 
methods. Object code necessary to inter- 
face with ISAM subroutines is also gener- 
ated. 

The Assemble Phases generate most of the 
object program code, set up the tables 
used for output linkage, and generate the 
necessary linkage. Although included in 
the Assemble phases, the Terminate Compil- 
ation Phase (RG60) performs a separate 
compiler function: this phase terminates 
compilation, either naturally or due to 
errors in the compilation. 



METHOD OF OPERATION 

This section presents an overview of the 
main functions of the RPG compiler and the 
sequence of events that bring about these 
functions. The five main functions of the 
1130 RPG compiler described in this sec- 
tion are: 

• System initialization 

• Input processing 



• Diagnosing, noting, and describing 
errors 

• Generating object code 

• Final processing 

To convey the logic and data flow of these 
functions, this section includes a series 
of diagrams building from the general to 
the specific. Supporting text is includ- 
ed, where necessary, but, for the most 
part, the diagrams are designed to be self- 
explanatory. The consecutive progression 
of events that occur within individual 
phases are not described here; this infor- 
mation is included under "PHASE DESCRIP- 
TION" . 

Certain times, in the following flowcharts 
and text, abbreviations are used. A par- 
tial list of these abbreviations and their 
meanings follows: 

COMMA - Resident Monitor Communication 

Area 
COMP - Compression 
COMAREA - Communication Area 
DSP - Disk System Format 
ES - Extension Specification 
EXT - Extension 

EDS - File Description Specification 
NEIT - Neither (Flowchart usage) 
PARAM - Parameter 
WS - Working storage 



RESIDENT ROUTINES AND THE COMMUNICATION 
AREA 

To save load time in each phase, routines 
used by two or more phases (common rout- 
ines) are stored in the Resident phase 
(RGOO) and remain there as long as neces- 
sary. 

Linkage to the common routines from a pro- 
cessing phase is accomplished through a 
branch within that phase. The common 
routine then performs the operation de- 
sired by the requesting phase and returns 
control to it. 

The common routines originally contained 
in RGOO are: 

• Get Compression Routine (GETCM) 

• Print Error Note Routine (PRTER) 

• Print Source Card Routine (PRTSP) 

• Read Source Card Routine (RDSPC) 

• Put Compression Routine (PUTCM) 

• Call Phase Routine (CALPH) 



Output Format 
Code Sheet 



Calculation 
Code Sheet 




Relocatobley 
Mach . 
Language 
Text for 
I/O TAB, 
DECL. 
Areas, Lit- 
erals, and 
Resulting 
Indicators 



'Relocatable , 

Mach . 
Language 



Insts. 



Resident Phase 

Reads and diagnoses control card 
Contains routines that are common to 
many RPG phases 



Enter Phases 



Read, list, compress, and diagnose 

specifications 
Build table of filenames 



Assign Phases 
Assign addresses to all resulting 

indicators in RPG source program 
Determine addresses of all defined 

fieldnames 
Process calculation literals and 

output literals 3 



Diagnostic Phases 

Build tent table 

Determine type of specifications used 

Process and print error messages 



I/O Phases 



Build lOTAB and use it to produce 
object code for l/O routines 



Assemble Phases 

Generate machine language instructions 

and object program linkages 
Terminate compilation 



RPG 

Control 

Card (H Card) 



Print Heading 
on Listing, 
print H Card 



Source Listing 
with Error 
Notes 



Lists of: Re- 
sulting IND; 
STMT Number 
and Note; un- 
referenced 
multidefined, 
and undefined 
fields and 
literal; 



I Listing of Di- 
agnostic Notes 
and meaning 
of all Error 
Notes 



Key Object 
Time Routines 
Map Compila- 
tion Complete 



Figure 1. Program Block Diagram 
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Of these, PRTER and PRTSP are replaced by 
new routines created by phase RGIO. (These 
new routines retain the same names and 
perform approximately the same functions 
as the original routines.) 



Two other routines are moved into RGOO by 
phase RGIO: 

• Object Code Routine (PUTOB) 

• Complete Object Code Routine (OBEND) 

The common routines are described in de- 
tail in the " PROGRAM ORGANIZATION " section, 

In addition to the common routines, a 
Communication Area (COMAREA) is estab- 
lished in the Resident phase and remains 
there throughout processing by the RPG 
compiler. The COMAREA is an 80-word com- 
munication area that contains information 
that must be transferred between phases of 
the RPG compiler. It begins at address 
'ZRDSP' and includes such information as 
the starting address of the compression of 
each type of specification, addresses of 
routines in the Resident areas, and other 
constants and addresses used during com- 
pilation. The format and contents of the 
COMAREA are described under " CONTROL 
BLOCKS AND TABLES". 



LINKAGE BETWEEN PHASES 

Except for the Resident phase, which re- 
mains in storage throughout compilation, 
each RPG phase is brought into storage 
only when it is needed. When a phase com- 
pletes processing, it returns to the CALPH 
routine with a request to bring another 
phase into storage. The CALPH routine then 
substitutes the requested phase for that 
just completed, passing control to the re- 
quested phase. 



SYSTEM INITIALIZATION 

Before the RPG Control Card or RPG speci- 
fication cards can be read, some common 
routines must be read into storage and the 
COMAREA must be defined. Both operations 
are performed when the Resident phase 
(RGOO) is given control. When the Resident 
phase is first given control, it contains 
six common routines, as well as instruc- 
tions designating where these routines 
are to be placed. As soon as the Monitor 
brings this phase into storage, it relo- 
cates the common routines and passes con- 
trol to the first instruction. Next, the 
COMAREA is defined, and the RPG Control 
Card is processed. 

Input and output flow for the initializa- 
tion function is shown in Figure 2. 
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Figure 2. Initialization Functions of the RPG Compiler 
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INPUT PROCESSING 

Information on the RPG Control Card and 
the specification cards must be recorded 
in storage so that it can be easily ac- 
cessed by the Diagnostic, I/O, and Assem- 
ble phases of the compiler. This oper- 
ation is performed by the Enter phases. 

In addition to showing the input and out- 
put flow for the input processing function. 
Figure 3 depicts the data and control flow 
for evaluating and compressing information 
in the user's RPG source program. 



DIAGNOSING, NOTING, AND DESCRIBING ERRORS 

Diagnosis of errors is first performed in 
the Resident phase, when checks are made 
for such things as an invalid Monitor Con- 
trol Card and exceeding the limits of 
working storage. If an error such as this 
is found, exit is made to RG60, where an 
error message is printed, and compilation 
is terminated. 



Diagnosis of another type takes place in 
the Enter phases. If invalid statements 
are detected, they are noted, and compila- 
tion continues. This holds true for the 
Assign phases, where invalid indicators, 
fields or literals are detected and noted. 
If no valid input, output, or file des- 
cription compressions are read by RGIO , it 
notes the error and exits immediately to 
RG19. RG19 , Diagnostic message phase, con- 
tains the program that prints error-note 
messages. Each time a phase prior to 
RG19 notes an error, it causes the Resident 
phase to print the note-number identifying 
the error. Then, when RG19, RG20, and 
RG21 gain control, error notes are printed 
corresponding to the error-note numbers. 
If a terminal error, such as no valid com- 
pression, is processed by RG19 , RG20, or 
RG21, an exit is taken directly to RG60. 
At RG60, an error-note may be printed, as 
well as a "compilation ended" note, follow- 
ed by an exit to the monitor. 

The diagnosing, noting and identifying 
functions are illustrated by Figure 4. 
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Figure 3. Input Processing Functions of the RPG Compiler 
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Figure 4. Diagnostic Functions of the RPG Compiler 



GENERATING OBJECT CODE 

One of the primary objectives of phases 
RG22-RG54 is to generate object code. 
This is accomplished by linking to PUTOB. 
Two addresses are passed to PUTOB: the ad- 
dress of the code to be generated, and the 
address of the table that describes the 
code. (Refer to PUTOB — Put Object Code. ) 



Depending on the type of statement pro- 
cessed, object code is generated for a 



specific function. In addition to generat- 
ing code, these phases store the addresses 
of some of the generated routines in the 
NOTES section of the COMAREA. When RG58 
gains control, it takes the addresses from 
NOTES, generates them into the proper order 
in the fixed driver (see page 160) , and 
places the object code in the object code 
buffer. At the same time it prints the 
Key Addresses of object program map, a list- 
ing of routine names and addresses. The 
generation of object code is shown in 
Figure 5 . 
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Figure 5. Generate Object Code Functions of the RPG Compiler 



FINAL PROCESSING 

Final processing takes place when RG6 
gains control. Any generated object code 
remaining in the Object Code Buffer is 
moved to disk working storage. If neces- 
sary, the object code is then read into 
the Disk I/O Buffer and moved to the begin- 
ning of working storage. 



After the object code is moved, the DUP 
and EXEC switches in the Monitor Communi- 
cation Area (COMMA) are set, and such 
values as block count and relative entry 
point are entered in the Disk Communication 
Area (DCOM) . Then, a "compilation com- 
plete" message is printed and exit is made 
to the monitor. 

Final processing is depicted in Figure 6. 
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Figure 6. Final Processing Functions of the RPG Compiler 



PROGRAM ORGANIZATION 



This, section describes the design of the 
RPG compiler and describes how the program 
is packaged. 



FUNCTIONAL ORGANIZATION 

As mentioned in Section 1, the six major 
components of the 1130 RPG Compiler are 
the Resident Phase, Enter Phases, Assign 
Phases, Diagnostic Phases, I/O Phases, and 
Assemble Phases. 



Resident Phase 

The Resident phase of the RPG Compiler re- 
mains resident in the same position through- 
out compilation as shown by Table 1. This 
phase is composed mainly of code, which 
accomplishes the following functions: 



• Fetch and store the principal print, 
input, and conversion routines. 

• Read first source card. 

• Initialize compression buffer. 

• Process and diagnose header card. 

• Print compiler listings, if required. 

• Print header card and error notes. 

• Read a card to ready the input buffer 
for the first Enter phase. 

• Call the first Enter phase. 

Also included in the Resident phase is a 
Communication Area (the COMAREA) . This 
area provides addresses and constants used 
by the compiler. (The COMAREA is described 
in detail in "Table 3: Resident Communica- 
tions Area" . 

Also stored in the Resident phase are six 
common routines, which are used by more 
than one phase. (The first Assign phase 

(RGIO) replaces two of these routines, and 
builds two other common routines, which 
are also stored in the Resident phase, 
after it is expanded to accommodate them. ) 
Figure 7 shows the use of routines by the 
Resident phase and by the common routines 

(which are contained within the Resident 
Phase) . 
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**The use of the routine is shown in 
Figure 7, under Common Routines. 

Please note: PRTER and PRTSP are overlaid by RGIO with routines 
bearing the same addresses. 

Figure 7. Resident Phase, External Routine 
Usage 



Enter Phases 

The Enter Phases, as a whole, perform the 
following functions: read, list, diagnose, 
and compress File Description, Extension, 
Input, Calculation, and Output-Format 
Specifications, and build the Filename 
Table. The Enter phases (and their module 
names) are: 

• Enter File Specifications (RG02) 

• Enter Input Specifications (RG04) 

• Enter Calculation Specifications (RG06) 

• Enter Output-Format Specifications 

(RG0 8) 

The core storage layout for the Enter 
phases is shown in Table 1, while Figure 8 
shows the use of routines by these phases. 

Assign Phases 

The Assign phases of the RPG compiler pri- 
marily perform the following functions: 
assign addresses to all resulting indica- 
tors and defined field names, print out a 
symbol table, build a table of indicators, 
and process calculation and output liter- 
als. 

The Assign phases (and their module names) 
are: 

• Assign Indicators (RGIO) 

• Assign Field Names (RG12) 

• Assign Literals (RG14) 

The core storage layout for these phases 
is shown in Table 1; Figure 9 shows the 
use of routines by each phase. 

Diagnostic Phases 

The Diagnostic phases of the RPG compiler 
perform the following functions: detect 
errors not found by the Enter phases; list 
all multi-defined, undefined, and unrefer- 
enced field names; check for errors in the 
specifications; and print error messages 
for all errors discovered by these and 
earlier phases. 

The Diagnostic phases (and their module 
names) are: 

• Extended Diagnostics 1 Phase (RG16) 

• Extended Diagnostics 2 Phase (RG17) 

• Error Message Phases (RG19, RG20, RG21) 
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* The use of this routine 
is shown in Figure 7. 

Figure 8. Enter Phases, External Routine Usage 
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* The use of this routine 
is shown in Figure 7. 



Figure 9. Assign Phases, External Routine Usage 
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The core storage layout for these phases 
is the same as for the Assign phases, as 
shown by Table 1; Figure 10 shows the use 
of routine of the Diagnostic phases. 

I/O Phases 

The main function of the I/O phases is to 
build a table of file description entries 
(the lOTAB) and use this table to produce 
object code. The I/O phases (and their 
module names) are: 

• Assemble 1 I/O (RG22) 

• Assemble 2 I/O (RG2 4) 

• Assemble 3 I/O (RG26) 

• Assemble 4 I/O (RG2 8) 



The core storage layout for these phases 
is shown in Table 1. 

Figure 11 shows the use of routines of 
these phases. 

Assemble Phases 

The Assemble phases generate the following; 
table loading and dumping routines; object 
code for RA and CHAIN files; object code 
for field type and record type input 
specifications; object code needed to 
process multiple input files; a File Input 
Table entry for each record type; table 
lookup routines; object code for calcula- 
tion operations; object code to place out- 
put fields within their associated output 
I/O areas; object code to produce output 
records, and linkage from the object code 















DIAGNOSTIC PHASES 
















RG16 




RG17 
Extended 
Diagnostics 2 






RG19 




RG20 




RG21 






Diagn 


ostics 2 










Diagnostic 
Message 1 






Diagnostic 
Message 2 






Diagnostic 
Message 3 








GETCM* 

J.,... 1 






GETCM* 




PRTSP* 






PRTSP* 






PRTSP* 




PRTSP* 


PRTSP* 


1 1 

CALPH* 


l_ — 1 

CALPH* 


CALPH* 




PRTER* 


1 1 — 

PRTER* 




























1 






1 


















CALPH* 






PUTOB* 
















1 












CALPH* 




*Th« 
is s 












i use oi 
hown i 


this rou 
n Figure 


ine 
7. 



























Figure 10. Diagnostic Phases, External Routine Usage 
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* The use of this routine 
is shown in Figure 7. 



Figure 11. Input/Output Phases, External Routine Usage 
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to the object program. The Assemble 
phases (and their module names) are: 

• Assemble Tables (RG32) 

• Assemble Chain and RA Files (RG34; 

• Assemble Input Fields (RG36) 

• Assemble Control Levels (RG38) 

• Assemble Multi-Files (RG40) 

• Assemble Get (RG42) 

• Assemble Calculation 1 (RG44) 

• Assemble Calculation 2 (RG46) 



• Assemble Output Fields (RG52) 

• Assemble Put (RG54) 

• Assemble Linkage (RG58) 

• Terminate Compilation (RG60) 

(Although not technically an Assemble 
phase, RG60 is included with these phases.) 



The core storage layouts of the Assemble 
phases (RG22-RG54) , Assemble Linkage 
phase (RG58) , and Terminate Compilation 
phase (RG60) are shown in Table 1; Figure 
12 shows the use of routines by each of 
the Assemble phases. 
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* The use of this routine 
is shown in Figure 7. 

Figure 12. Assemble Phases, External Routine Usage 
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Table 1 shows the contents of the core 
storage areas in the 1130 RPG Compiler 
through various stages of compilation 
(when an 1131 with 8K words of core storage 
is used) . In this table "Location" refers 
to the displacement addresses (in words) of 
the core storage areas. 



To avoid confusion please note that the term 
sequence number (or internal sequence num- 
ber) refers to a number assigned to each 
specification. This number beginning with 
the first specification (one) is incremented 
by one for each successive specification; 
record sequence refers to the sequence 
assigned to an Input record type, columns 
15-16 of the Input specifications. 
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* When an 1 131 with 16K or 32K words of core storage is used, this is incremented 
to 7470. 

** When an 1131 with 16K words of core storage is used, this is incremented to 13,630; 
when an 1131 with 32K words of core storage is used, this is incremented to 29,630. 

*** RG10 is origined at 1 190 for placement of additional common routines. 

Note: The Assemble Linkage phase (RG58) and Terminate Compilation phase (RG60) are pictured separately to show the 
differences in their core layout as compared to the other assemble phases. 



Table 1. Storage Layout 
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PHASE DESCRIPTIONS 



Each of the 29 phases in the compiler (and 
each major routine within these phases) is 
described by the following entries: 

• Chart - Identifies the flowchart 

that describes the logic 
flow of the phase or rou- 
tine. (The flowcharts are 
included as a group, begin- 
ning with Chart AA. ) 

• Functions - Describes the purpose and 

principal operations of the 
phase. 

• Entry - Names the label of the 

first executable statement 
in a phase or routine. 



• Input - Describes data to be pro- 

cessed by a phase or rou- 
tine. 

• Output - Describes the data which 

has been processed by a 
phase or routine . 

• External References - Refer to Table 4 , 

which shows the subroutines, 
constants, and addresses 
referenced by each phase of 
the RPG compiler. 

• Exit - Identifies the phase which 

will be put in control fol- 
lowing the current phase. 
The entry is further divid- 
ed into normal and error 
exits, to cover all possible 
results. A normal exit 
calls a succeeding phase to 
continue compilation; an 
error exit calls a phase to 
note an error or to print an 
error message, and may poss- 
ibly terminate compilation. 

• Tables/Work Areas - Describes tables 

and work areas that are 
built or modified by each 
phase. 



RESIDENT PHASE (RGOO) 
Chart: AA 
Functions : 

• Loads the principal input, principal 
input conversion, and principal print 
routines for use by compiler. 

• Loads the interrupt transfer addresses 
necessary for these subroutines. 

• Provides a communication area which 
can contain addresses and constants 
(COMAREA) , and fills in certain ad- 
dresses and constants in this area. 

• Provides routines to perform input/out- 
put needed by the other phases. (See 
"COMMON ROUTINES".) 

• Prints compilation headings, if re- 
quested. 

Entry ; RPG - entered from the monitor, to 
begin compilation. 

Input ; Input is via RPG source statements 
entered through the principal input de- 
vice. 



Output : A printed listing of the headings 
and RPG control card if requested. 

External References: Refer to Table 4. 

Exits : 

• Normal; To RG02, via CALPH (Call Next 
Phase routine) . 

• Error: None. (Refer to COMMON ROUTINES 
for error exits within the common rou- 
tines. ) 

Tables/Work Areas : ILS4, Interrupt Branch 
Table, is located in RGOO. This table is 
described in the publication, I BM 1130 
Disk Monitor System, Version 2, Program- 
ming and Operator's Guide , (Form C26- 
3717) . 
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COMMON ROUTINES 



Exit: 



Common routines are used by one or more 
phases other than the phase which built 
them. The six common routines originally 
stored in RGOO are: 

CALPH, which calls a succeeding phase. 
PUTCM, which puts a compression block in 

working storage. 
PRTER, which prints error notes when an 

error is encountered during compilation. 
GETCM, which reads a compression block 

from working storage to compression. 
RDSPC, which reads information from cards 

into the input/output area. 
PRTSP, which builds the I/O buffer and 

prints a listing if requested. 



CALPH 



Call Phase Routine 



Chart: None. 

Functions : Reads next phase from disk. 

Entry : CALPH, entered when the requested 
phase is to be read into main storage and 
when control is to be transferred to the 
calling routine. 

Output : None. 

External References ; Refer to Table 4. 

Exit : 

• Normal: To next phase. 

• Error: None. 

GETCM - Get Compression Routine 
Chart : None 
Functions ; 

• Reads a requested compression block in- 
to core storage. 

• If requested block is already in core, 
returns to calling phase immediately. 

• If requested block is not in core, the 
block presently in core is written out 
in working storage before the requested 
block is read in from working storage. 

Entry ; GETCM, entered when a compression 
block is to be read from working storage. 

Input: A compression block number, as re- 
quested by a calling phase. 

Output; The requested compression block. 

External References; Refer to Table 4. 



• Normal; Return to calling routine or 
phase. 

• Error: None. 

PRTER - Error Note Routine 

Chart: None. 

Functions : 

• Builds I/O Buffer for error notes. 

• Posts error niomber in NOTES (within 
COMAREA) for RG19. 

Entry : PRTER, entered when an error note 
is to be printed. 

Input : Error number, from calling phase. 

Output : Printed error note within I/O Buf- 
fer, and return address. 

External References : Refer to Table 4. 

Exit : 

• Normal: To PRTSP, for actual output 
function. 

• Error: None. 

PRTSP - Print Listing Routine 

Chart; None 

Functions ; 

• Checks if List Option is on. 

• Checks for indication of error in source 
card, if List Option is off. 

• Sequence checks cards. 

• Builds Input/Output Buffer. 

• Prints Listing. 

Entry ; PRTSP, entered when a source card 
IS to be printed. 

Input: Source card. 

Output : Printed Listing. 

External References ; Refer to Table 4. 

Exit ; 

• Normal; Return to calling routine. 

• Error; None. 
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PUTCM - Put Compression Routine 
Chart ; None. 
Functions ; 

• Checks if compression block number 
greater than one; block one always re- 
mains in core, all others written in 
working storage. 

• Checks working storage and sets error 
code if exceeded. 

• Writes block on working storage from 
compression buffer. 

Entry ; PUTCM, entered when a compression 
block is to be written in working storage. 

Input ; Compression buffer. 

Output ; Compression blocks. 

External References ; Refer to Table 4. 

Exit; 



Four common routines are built by RGIO and 
stored in RGOO: PUTOB, OBEND, PRTER, and 
PRTSP. The two latter routines replace 
routines of the same names, which were 
built by RGOO. 

PUTOB - Put Object Code 

Chart ; None. 

Function; Converts object code into DSF 
and puts it to disk working storage. 

Entry ; PUTOB. 

Input ; Address of the Object Code instruc- 
tions to be generated, and the address of 
the table describing the Object Code in- 
structions. 

The table has the following format: 



TABLE DC N 



DC M +K 
DC M +K 



Number of words fol- 
lowing in table 



• Normal; Return to calling routine. 

• Error; To Monitor (EXIT) , if working 
storage is exceeded. 

RDSPC - Get Source Routine 

Chart: None. 

Functions ; 

• Checks if monitor control record (116) 
is read, and halts compilation if it is 
read. 

• Reads source card using two Input/Out- 
put areas. 

• Converts I/O Buffer to unpacked EBCDIC. 

Entry ; RDSPC, entered when a source card 
is to be read. 

Input ; Source Ccirds. 

Output ; Converted source card in the I/O 
buffer. 

External References ; Refer to Table 4 . 

Exit; 



^^ ^N-^^N 

M occupies bits 0-7 and defines the type 
of code; 

hex 00 for absolute word, 
hex 04 for relocatable word, 
hex 08 for LIBF, 
hex OC for CALL, 
hex 10 for DSA. 

K occupies bits 8-15 and defines the nmn- 
ber of words with the attribute M. 



Output ; DSF code on disk working storage. 
External References; Refer to Table 4. 



Exit; 



Normal; To calling phase. 

Error; To RG60, via CALPH, if disk 
overflows. 



Tables/Work Areas ; INDEX - A table of words 
built and used by PUTOB. 



Normal; To calling phase; to RGIO, 
after last card (/*) . 

Error; To Monitor (EXIT) if Monitor 
control card read. 



OBEND - Complete Object Code 
Chart; None 
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Functions: 



External References: See Table 4. 



• Puts out end of program data header for 
core load builder. 

• Writes last of object code to working 
storage . 

• Computes disk block count of object 
program. 

Entry ; OBEND, called from RG60 via ZBLCT. 

Input ; None. 

Output : 

• Disk System Format (DSF) code for last 
block to working storage. 

• Block count in ZBLCT in COMAREA. 
External References ; Refer to Table 4. 
Exit : 

• Normal; Return to RG60 (to GO). 

• Error: To RG60, via CALPH. 

ENTER FILE SPECIFICATIONS (RG02) 

Chart ; BA. 

Functions: 



• Reads, analyzes, lists and compresses 
entries on File Description and Exten- 
sion specifications. 

• Builds the Filename Table. 

• Builds the File Description and Exten- 
sion compression areas. 

• Identifies errors found in a statement. 

Entry; BEGIN, from the Resident phase. 

Input: File description and Extension 
Specifications . 

Output : A list of the RPG statements pro- 
cessed by this phase, and the error num- 
bers that identify errors found on each 
statement. These error numbers and their 
meanings are described in the publication, 
IBM 1130 Disk Monitor System, Version 2: 
Programming and Operator's Guide , Form 
C26-3717. 

Also, compressed versions of the File Des- 
cription and Extension Specifications are 
contained in the File Description and Ex- 
tension compression areas. 



Exit ; 

• Normal: To RG04, Enter Input Specifica- 
tion. 

• Error: None. 
Tables/Work Areas ; 

• Filename Table (see Table 5. CONTROL 
BLOCKS AND TABLES ) . 

• Error Note Table (Table 3, Part 6) , 
which posts any errors connected with 
that specification for RG19. 



ENTER INPUT SPECIFICATIONS (RG04) 

Chart; BB 

Functions ; 

• Sets pointers in the COMAREA, reads, 
analyzes, lists, and processes Input 
Specifications, creating compression 
records for use by later phases. 

• Checks record type specifications (AND, 
OR, S, F) and diagnoses terminal errors, 

• Checks field type input specifications, 
diagnoses errors, and processes entries, 

Entry ; BEGIN, from RG02 (Enter File Speci- 
fications) . 

Input ; Input Specifications. 

Output : A printed list of: the RPG state- 
ments processed by this phase, error mem- 
bers identifying the errors found on each 
statement, and compressed Input Specifi- 
cation records. 



External References : See Table 4. 
Exit ; 

• Normal: To RG06 , if a Calculation Speci- 
fication is encountered. To RG08, if an 
Output-Format Specification is en- 
countered. 

• Error: None. 

Tables/Work Areas : FNTAD - Address of File- 
name table (FLENM) . (See CONTROL BLOCKS 
AND TABLES) . 
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ENTER CALCULATION SPECIFICATIONS (RG06) 

Chart ; BC 

Functions ; 

• Reads, diagnoses, lists, and compresses 
Calculation Specifications. 

• Builds table of valid operations. 

Entry ; BEG, from RG04 (Enter Input Speci- 
fications) . 

Input ; Calculation Specifications. 

Output ; A list of the RPG statements pro- 
cessed by this phase, error numbers iden- 
tifying errors found on each statement, 
and compressed Calculation Specification 
records. 

External References ; See Table 4. 

Exit ; 

• Normal: to RG0 8, after last Calculation 
Specification has been processed. 

• Error; None. 

Tables/Work Area s; Table of valid calcu- 
lations and corresponding attributes. 



ENTER OUTPUT SPECIFICATIONS (RG0 8) 

Chart; BD 

Functions ; 

• Reads, diagnoses, lists, and compresses 
Output-Format Specifications. These 
specifications define the characteris- 
tics and fields of the data records 
that are to be written on the output 
files at object time. 



• Determines if the specification defines 
a record type or a field of an output 
record. 

Entry ; RPG, from RG04 or RG0 6. 

Input ; Output-Format Specifications from 
source cards. 

Output ; A list of the RPG statements pro- 
cessed by this phase, error numbers iden- 
tifying errors found on each statement, 
and compressed Output-Format Specification 
records. 



External References ; See Table 4. 
Exit; 

• Normal; To RGIO (Assign Indicators 
phase) after last Output-Format Speci- 
fication is processed, via the CALPH 
subroutine. 

• Error; None. 

Tables/Work Areas ; GABLE - table of special 
characters found in edit words. 



ASSIGN INDICATORS PHASE (RGIO) 

Chart; CA 

Functions ; 

• Scans Compression. 

• Builds TABAR, an indicator table. 

• Replaces Resulting indicators in com- 
pression with assigned addresses. 

• Places Put Object Code routine (PUTOB) 
in Resident Phase (RGOO) . 

• Overlays the Print Error routine (PRTER) 
and Print Listing routine (PRTSP) in the 
Resident phase with comparable routines 
which retain the same addresses (ZPTER 
and ZPTSP) and which will remain in 
RGOO for the rest of the compilation. 

• Places OBEND (a wrap-up routine called 
by RG60) in Resident phase storage. 

Entry ; BEGIN, from RG0 8 (Enter Output 
Specifications phase) . 

Input ; Compression built by Enter phases. 

Output ; A list of the indicators and their 
addresses, and error numbers identifying 
errors found. 

External References ; See Table 4. 
Exits ; 

• Normal; To RG12 (Assign Fields phase) . 

• Error; To RG19 (Error Message 1 phase) , 
if unusable compression is found, or 

if no input Resulting Indicator is 
specified. 

Tables/Work Areas ; TABAR - table of indi- 
cators. 



Phase Descriptions 19 



ASSIGN FIELD NAMES PHASE (RG12) 
Chart ; CB 
Functions ; 

• Builds table of field names, ASNFL, 
from names in compression. 

• Assigns addresses to each field. 

• Replaces fields in compression with 
appropriate address. 

Entry ; BEGIN, from RGIO. 

Input ; Compression built by Enter phases. 

Output ; 

• A list of all specified field names 
with addresses, types, lengths, and 
decimal positions. 

• Updated compression. 
External References ; See Table 4. 
Exits ; 

• Normal; To RG14, if literals were speci- 
fied. To RG16 , if no literals were 
specified. 

• Error; None. 

Tables/Work Areas ; ASNFL - Table of field 
names. 



ASSIGN LITERALS PHASE (RG14) 

Chart: CC. 

Functions ; 

• Assigns object addresses to all liter- 
als, constants, and edit words. 

• Prints and puts all unique literals as 
object code. 

• Builds edit words from edit codes. 

Entry ; BEGIN, from RG12 if literals were 
specified. 

Input ; Calculation and Output compression, 

Output: 

• Literals on the principal print device. 

• Literals in Disk System Format for the 
object time code. 



External References ; See Table 4. 
Exits ; 

• Normal: To Extended Diagnostics Phase 

(RG16) . 

• Error; None. 

Tables/Work Areas ; Table of unique liter- 
als. 



EXTENDED DIAGNOSTICS 1 PHASE (RG16) 

Chart; DA 

Functions ; 

• Builds TENT table from contents of File 
Description Specification compression 
(see COMPRESSION FORMATS ) . 

• Distinguishes File Extension Specifica- 
tions as to unreferenced table name for 
table file and diagnoses each for va- 
lidity, 

• Further distinguishes the type of Input 
Specifications (record type or field 
type) and diagnoses the contents of 
either for validity, compatibility to 
each other, and compatibility between 
record types. 

• Passes on the lengths of the chaining 
fields, matching fields, and control 
levels to the Assemble phases placing 
them in resident area storage. 

Entry: START, from RG14 if literals were 
used; from RG12 if no literals were used. 

Output: Heading line with error notes. 

External References ; See Table 4. 

Exits : 

• Normal: To RG17 (Extended Diagnostics 
2). 

• Error: None. 
Tables/Work Areas ; 

• TENT - Built from File Description 
Specifications. See COMPRESSION FOR- 
MATS . 

• ERTAB - Table of Error indicators. 

• NOTAB - Table of Error-note numbers. 
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EXTENDED DIAGNOSTICS 2 PHASE (RG17) 

Chart ; DB 

Functions ; 

• Further diagnoses Calculation and Out- 
put Specifications. 

• Updates the table address in the Calcu- 
lation Specifications to the table ele- 
ment hold area. 

• Checks Stacker Select, Space, and Skip 
entries. 

• Prints error-notes for undefined fields 

• Checks page field for numeric field. 

• Checks if End Position is within the 
record. 

• Checks the validity of edit words. 

• Checks if edited fields are numeric. 

• Puts out control level hold areas. 
Entry ; BEGIN, from RG16 . 

Input: Calculation and Output compression. 
Output ; 

• Error-notes, on the principal print 
device. 

• Control level hold areas and Control 
Level Address Table. 

External References ; See Table 4. 

Exits ; 

• Normal; To RG19, Error Message Phase. 

• Error; None. 

Tables/Work Area s; This phase references 
the TENT table in RG16. 



External References ; See Table 4. 
Exits; 

• Normal; To RG22 (Assemble 1 I/O phase) 
if no terminating errors are found. 

• Error: To RG6 (Terminate Compilation 
phase) if terminating errors are found. 

Tables/Work Areas : None. 

ASSEMBLE 1 I/O PHASE (RG22) 
Chart; EA 

Functions ; Builds Input/Output Table from 
Filename table (FLENM) , FILEl Table from 
compression, and Overflow Table. (These 
tables are explained under "Control Blocks 
and Tables" . ) 

Entry ; BEG, from RG19 , RG20 , or RG21. 

Input ; File Description compression and 
Filename Table. 

Output ; 

• A table (lOTAB) entry for each file. 

• A FILEl table entry for each file. 

• Overflow Table entry for each printer 
file. 

• ISAM Load table entry for each ISAM 
load file. 

External References ; See Table 4. 

Exits : 

• Normal; To RG2 4 (Assemble 2 I/O) after 
the last File Description compression 
specification is processed, if non- 
disk file; to RG26 (Assemble 3 I/O) , 
if all files are disk files. 

• Error; None. 



ERROR MESSAGE PHASES (RG19, RG2 0, RG21) 

Chart: DC 

Functions ; Diagnoses error bits and prints 
error messages. 

Entry ; START, from RGIO (Assign Indicators 
phase) or from RG17 (Extended Diagnostics 
2 phase) . 

Output ; Listing of flagged error messages 
in Diagnostics 1, 2, and 3. 



Tables/Work Areas ; 

• Builds Input/Output Table from entries 
in the Filename table. 

• Builds FILEl Table from File Descrip- 
tion compression (File Description 
Specification compression is described 
in Section 5) . 

• Builds Overflow Table* 

• Builds ISAM LOAD Table. 
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ASSEMBLE 2 I/O PHASE (RG24) 



Exits: 



Chart ; EB 

Functions ; Uses lOTAB built by RG22 to 
produce object code for Input/Output re- 
quests of non-disk files. 

Entry ; BEG, from RG22. 

Input ; lOTAB built in RG22. 

Output ; 

• The output of this operation is assem- 
bled routines for each non-disk file 

(obtained from lOTAB) . 

• The address of an I/O routine is saved 
in the first word of an entry corres- 
ponding to the lOTAB entry. The output 
of this operation is the first word of 
the FILEl table, occupied by the rou- 
tine address. 

External References: See Table 4. 



Exit; 



Normal: To RG26, when the last non-disk 
I/O routine has been assembled, or to 
RG32. 

Error: None. 



Tables/Work Areas : lOTAB and FILEl Table 
(both in RG2 2) are referenced. 



• Normal: To RG2 8 (Assemble 4 I/O Phase). 

• Error: None. 

Tables/Work Areas ; lOTAB and FILEl Table 
in RG22. 

ASSEMBLE 4 I/O PHASE (RG28) 

Chart : ED 

Functions : Puts out object code for all 
indexed- sequential disk files. 

Entry : RPG, from RG24, or from RG26. 

Input : None. 

Output : Object code in DSF to perform I/O 
for all indexed-sequential disk files. 

External References ; See Table 4. 

Exit: 

• Normal; To RG32 (Assemble Tables phase) 
or RG34 (Assemble Chain and Record Ad- 
dress Files phase) . 

• Error; None. 

Tables/Work Areas ; Tables built by this 
phase are all internal and describe the 
object code for the Disk System Format 
routine, ZPTOB. 



ASSEMBLE 3 I/O PHASE (RG26) 

Chart ; EC 

Functions : 

• Uses the lOTAB built by RG22 to produce 
object code for I/O requests of all Se- 
quential Disk files. 

• Provides I/O areas for each file. 
Entry: BEGIN, from RG24. 

Input : None. 



Output: Object code in Disk System Format 
(DSF) . 

External References; See Table 4. 



ASSEMBLE TABLES PHASE (RG32) 

Chart; FA 

Functions; 

• Checks compression for Table files. 

• Builds Table file area. 

• Generates table loading routine. 

• Generates table dump routine. 

• Generates linkage routine if more than 
one table loading or dumping routine has 
been generated. 

Entry : AOOOO, from RG28. 



Input ; Compression Records built from Ex- 
tension Specifications. 



22 



Output ; 

• Area (Save) for table entries. 

• Object code for table load routine (at 
LD) . 

• Object code for table dvimp routine (at 
DP) . 

• Object code for table link routine (at 
LK) . 

External References ; See Table 4 
Exit : 

• Normal: To RG34 , Assemble Chain and RA 
File Phase. 

• Error; None. 
Tables/Work Areas: None. 



ASSEMBLE CHAIN AND RA FILE PHASE (RG34) 

Chart : FB 

Functions ; 

• Processes Extension Compression. 

• Generates object code for record ad- 
dress (RA) files, and chaining files. 

Entry : BEGCl, from the calling phase. 

Input ; Extension compression. 

Output : 

• Object code for processing RA Files. 

• Object code for CI, C2, or C3 Chaining 
Files. 

External References ; See Table 4. 

Exits : 

• Normal: To RG36 (Assemble Input Fields 
Phase) . 

• Error: None. 

Tables/Work Area s; lOTAB and FILEl Table 
(both created by RG22) are referenced. 



ASSEMBLE INPUT FIELDS (RG36) 
Chart; FC 

Functions; Assembles Input Specifications 
(Field type) . 

Entry: BEG, from RG34. 

Input : Input Specifications compression. 

Output ; 

• Object code to move fields. 

• Object code to test Field Record Rela- 
tion Indicators and set on Resulting 
indicators. 

• Linkage to Sterling Input Specifica- 
tions. 

• Object code for chaining fields. 
External References : See Table 4. 
Exits ; 

• Normal; RG38 (Assemble Control Levels' 
phase) . 

• Error: None. 
Tables/Work Areas: None. 



ASSEMBLE CONTROL LEVELS PHASE (RG38) 

Chart: FD 

Functions : 

• Generates object code for both field 
type and record type Input Specifica- 
tions. 

• Generates sequence check routine 
(NUSEQ) , if numeric record type is 
present. 

• If control levels are present, gener- 
ates the object code which processes 
them. 

Entry ; BEG3 8, from RG36 . 

Input : I type and D type Input compression, 
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Output ; 

• Object code for processing control 
levels. 

• Object code for determining record type 

• Object code for checking numeric se- 
quence. 

External References: See Table 4. 



Input ; I type and D type Input compression, 
Output ; 

• Object time file processing table for 
each file. 

• A Get routine for each primary and 
secondary file. 

External References: See Table 4. 



Exit ; 

• Normal; To RG40 (Assemble Multi-Files 
Phase) . 

• Error: None. 

Tables/Work Areas ; EXSP - Work area for 
processing compression. 



ASSEMBLE MULTI-FILES PHASE (RG40) 

Chart ; FE 

Functions ; Generates routines that move 
matching fields from input area to match- 
ing field hold areas, and routines that 
compare matching fields to determine se- 
quence of processing and status of MR in- 
dicator. 

Entry ; BEG49, from RG38. 

Input: I type and D type Input compression. 

Output: Object code for processing match- 
ing fields. 

External References ; See Table 4. 

Exits ; 

• Normal; RG42 (Assemble Get Phase) . 

• Error; None. 

Tables/Work Areas ; FILEl Table (in RG22) 
is modified. 



ASSEMBLE GET PHASE (RG42) 

Chart : FF 

Functions ; Builds table (FILTA) containing 
addresses of input record routine (INPR) , 
control level routine, move fields routine 
(INPF) , and resulting indicators. 

Entry: BEG40, from RG40. 



Exits ; 

• Normal: To RG44, RG66, or RG52, 

• Error; None. 
Tables/Work Areas : 

• FILEl Table is modified. 

• FILTA, work area for building object 
time file tables is built. 



ASSEMBLE CALCULATION 1 PHASE (RG44) 
Chart ; FG 
Functions ; 

• Assemble the Object Code routine for 
each LOKUP operation. 

• Assembles a chain subroutine which may 
be linked to by any CHAIN operation. 

Entry: BETG, from RG42. 

Input; Calculation compression. 

Output: 

• Object code for CHAIN and LOKUP oper- 
ations . 

• Address of chain subroutine placed in 
compression for each chain operation. 

• Address of each LOKUP routine placed 
in corresponding LOKUP compression. 

External References : See Table 4. 

Exits ; 

• Normal: To RG4 6, when all Calculation 
Specifications have been processed. 

• Error; None. 
Tables/Work Areas: None. 
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ASSEMBLE CALCULATION 2 PHASE (RG46) 

Chart ; FH 

Functions ; 

• Generates object code for all Calcula- 
tion Specifications except CHAIN and 
LOKUP . 

• Generates linkage to CHAIN and LOKUP 
routines assembled in RG44. 



Entry ; BEG, from RG44. 

Input: Calculation Specification compres- 
sion. 

Output ; Object code for all Calculation 
Specifications . 

External References ; See Table 4. 

Exit: 

• Normal; To RG52 (Assemble Output 
Fields) . 

• Error; None. 

Tables/Work Area s: OPERA - A table of 
operation codes is built. 



ASSEMBLE PUT PHASE (RG5 4) 

Chart ; FJ 

Functions ; 

• Generates object code that produces 
output records on output files. 

• Fills in NOTES, WORKl, SQSOF , and 
TABLl. 

Entry ; RPG, from RG52. 

Input; Output Compression. 

Output; Object code and a table of ad- 
dresses. 

External References ; See Table 4. 
Exit; 

• Normal: RG58, (Assemble Linkage Phase), 

• Error; None. 
Tables/Work Areas : 

• NOTES - Work area in COMAREA. 

• WORKl - A 3-word area for building one 
table entry. 

• SQSOF - Overflow table (see CONTROL 
BLOCKS AND TABLES ) . 

• TABLl - Area where Output tables are 
built. 



ASSEMBLE OUTPUT FIELDS (RG52) 

Chart; FI 

Functions; Generates object code that 
will place output fields in desired for- 
mat and location within the associated 
output record. 

Entry : RPG, from RG46. 

Input : Output Compression. 

Output; Object code. 

External References : See Table 4. 

Exit; 

• Normal; RG54 (Assemble Put phase) . 

• Error: None. 
Tables/Work Areas: None. 



ASSEMBLE LINKAGE PHASE (RG5 8) 

Chart; FK 

Functions : 

• Generates a fixed driver (at RO) for 
object time execution. 

• Generates branches to appropriate rou- 
tines if OPENS and CLOSES are needed. 

• Generates a link to table load, if need- 
ed. 

• Generates link to Heading and Detail 
Lines routine. 

Entry; BEGIN, from RG5 4. 

Input: None. 
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Output: 



A printed listing of key addresses of 
object program. 

A printed listing of the number of sec- 
tors needed for ISAM LOAD files (pro- 
viding list option and ISAM LOAD are 
specified) . 

Object code as described under "Func- 
tion", above. 



External References ; See Table 4. 
Exits ; 

• Normal: To RG60. 

• Error: None. 

Tables/Work Areas ; 

• ISAM Load Table - contains information 
concerning sector count. 

• Filename Table - contains names of 
specified files (see " CONTROL BLOCKS 
AND TABLES ") . 

• FILEl Table - contains information 
about file types (see " CONTROL BLOCKS 
AND TABLES") . 



Functions ; 

• Updates DCOM (Disk Communications Re- 
gion) on the system and working storage 
cartridges for the DSF program, and 
moves the DSF program to the beginning 
of working storage if there are no ter- 
minating errors. 

• Sets words in system area so DUP and 
XEQ cards will be passed if there are 
any terminating errors. 

• Prints "end of compilation" message and 
passes control to the Monitor. 

• Calls OBEND (wrap-up routine in RGIO) . 
Entry ; BEGIN, from RG5 8. 

Input; 

• DCOM from system and working storage 
cartridges. 

• DSF program (if it does not start at 
the beginning of working storage) . 

Output : 

• Updated DCOM. 

• DSF program moved to the beginning of 
working storage. 

• If any terminal errors, DUP and XEQ are 
disabled. 

External References; See Table 4. 



Exit; 



TERMINATE COMPILATION (RG60) 
Chart; FL 



• Normal: To the Monitor, EXIT. 

• Error; To the Monitor (when $NDUP and 
&NXEQ are non-zero) , via EXIT. 

Tables/Work Areas ; DISK - Work area for 
reading from the disk. 
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**** A3 ********* 
* ' * 

" ENTEY * 

*************** 



FROM: 

CALLING 

ROUTINE 



***B3 *********** 



**************** 



***C3 *********** 



**************** 



*****D3 ********** 

* * 

* INITIALIZE * 

* INTERRUPT * 

* BRANCH TABLE * 

* * 
***************** 



♦**E3 *********** 

* RDSPC * 
_*_*_*_*_♦_*_* 

* .HEAD A CARD * 
**************** 



* INITIALIZE * 

* COMPRESSION * 

* BUFFERS * 

* ♦ 
***************** 



* PROCESS AND ♦ 
♦DIAGNOSE HEADER* 

* CARD * 

* * 
***************** 



**** 
(■ * 
K A« * 
1> * 

**** 



l<**A4 *********** 
PRTSP 



!<*************** 



*.ANY ERRORS ? 



***Clt *********** 

* RDSPC * 
-*-*-*-*-*-*-* 
* READ A CARD ♦ 
**************** 



****DU ********* 

* * 

* EXIT * 

* * 
*************** 



H3 


*. 


***H4 *********** 


.* *. 


PRTES 


.*IS IT AH H *. NO 


-*_*_*_*_*_*_* * 


*. CARD ? .* 


-> PRINT ERROR 


*. .* 


* NOTE * 


*. .* 




*. .* 


**************** 




* YES 








■ 






.*. 
J3 *. 






.* *. 


****ji(*- 


:******* 


.* IS IT *. YES 


* * 


*. NOLIST ? .* , 


* EXIT * 


♦. . * 


* ♦ 


*. .* 


*************** 


*. .* 




♦ HO **** 






* * 


TO: EG02 




* A« * 






* * 






**** 




■ 






***K3*********** 




PRTSP 




_*_*_*_*_*_♦_* * 




PRINT HI 


ADINGS 







**************** 



***B5*** ******** 
PRTER 
-*-*_*_*_*_*_* * 

-> PRINT ERROR 
* NOTE * 

**************** 



Chart AA. Resident Phase (RGOO) 
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^1*^21 *********** 
BDSPC 
*_*-♦-♦-*-*-*- * 

HEAD — 
* SPECIFICATION* 

***»«**+***♦+*** 



**+ + 

* < 

* F1 * 
+ * 

+ *** 



****^Q1 ********** 

* * 

* * 

«SET EEROR NOTE * 

* * 
« * 
***************** 

J 



.* IS IT *. 
.♦EITHER PRIH*. YES 
->*.0R SEC FILE ?.+ 



* HI * 

* * 
♦ *** 



*****j-\ ********** 



***************** 



BEGIN 

****j^2********* 

* * 

* ENTRY ■* 

* -t 



***B3 *********** 



* PRTSP 

_> *_♦_*_*-*-*-♦- 

* PRINT SPEC 



*+++**********♦* 

* + ** 

*i * 

« B1 * 

* + 

**** 

. *. 

C3 *. 



L 



.+DEVICE AND 
K FILENABE 
♦.VALID ? . 



, +IS DEVICE A^, 
, CONSOLE OR . 
♦.PUNCH ? .♦ 



***j)3** ********* 
PRTSP 
-*-*-*-♦-*-*-* ♦ 
-> PRINT 

♦ SPECIFICATION* 

**************** 



***f;3*********** 

PHTEE 
-♦_*_*_*-*-*-* * 

PRIST EESOR 
♦ NOTE ♦ 

**♦*+****♦*♦♦♦** 



.♦ WAS A ♦. YES 


♦. USED ? .♦ 
*. .* 
♦. .♦ 
♦ NO 


1 

***** 

* 2 ♦ 

♦ B3* 
* * 

* 


■' 

***DH *********** 

PETER 

*-*-*-*-+-*-*- * 

PRINT ERROR 

♦ NOTE * 


**************** 






**** 
* 2 * 
i->* B3 * 





r 



( **** 

L* * 
>* B1 * 



F3 *. 

.* ARE ♦. 

.♦OUTPUT TYPE* 

". & COL 17-18 

♦.BLANK ? .* 



L**** 
♦ * 
>* El * 
* * _ 
*»** 
.*. 
G3 *. 
. * *. 
.* IS IT AN *. YES 

►. UPDATE FILE 7.* 

♦. .* 03 



*****E1( ********** 



***************** 
***** 



***** * 
*♦** 
P25P 

*****fl( ********** 



***************** 







* 


* 








* 


G3 ♦ 








* 


♦ 
**** 
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P3I1 


* 


*****H2 ♦***♦♦**** 






H3 ♦, 


* * 






. ♦ 


♦PROCESS COLUMNS* 






♦ IS IT AN 


* PERTAINING TO ♦ 




* 


INPUT FILE 


♦ DI 


3K * 









***************** 



t**** J 2*** ******* 



***************** 



G1 *. 

.* ♦. 

.♦IS DEVICE A*. 

DISK ? 



*****RH ********** 



***************** 



*♦** 

♦ * 

♦ HI * 

♦ * 
**** 



*t***j(1*** ******* 

* ♦ 

♦ DIAGNOSE AND * 

♦ COMPRESS ♦ 
♦SPECIFICATIONS ♦ 

* ♦ 
**»+****♦***+**** 



**** 

♦ * 

♦ F5 * 

♦ * 
*+ + ♦ 



1 



.♦IS IT A*. 
.* TABLE, ♦. 
*. CHAINED. OR .♦<- 
*.RA FILE ?.♦ 



*****K4 ********** 

* * 

♦ DIAGNOSE AND * 

♦ COHPRESS * 
♦SPECIFICATION ♦ 

* * 
***************** 



***p5 *********** 
PRTSP 
_*_*_*-*-*-*-* * 
.> PRINT 

* SPECIFICATION* 

**************** 



G5 


*. 


. * ♦. 


NO .* *. 


r->, *.ANY ERRORS ? .* 


*. .* 


+ . . ♦ 


*. .♦ 


**** * YES 


* * 




♦ B1 ♦ 




* * 




**** 




■r 


***H5+****^***** 


PETER 


_*_*_*_*_*_*_* ♦ 




* NOTE * 


**************** 


**** 





J 5 * , 

.*** j 



*****j5********** 



***************** 



Chart BA. Enter File Specifications Phase (RG02) 
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**♦* 
♦02 * 
* B3 



♦♦*B2***** ****** 
HDSPC 

*-*-*_♦_*_*_*_ :f 

READ 
* SPECIFICATION* 

**************** 



"-} 



BH *. 

.*ABE ALL*. 

.* EXTENSION * 

->*. FILES PEOC ? 

*. .* 



IF COMMENT CABD, 
PRINT SPEC AND 
HEAD ANOTHER 



*4i«««j)34«**««4<>t<^>|, 



***«4i4i*««i|i«**««^* 



**+*+E3 ********** 

* BUILD * 
♦COHPEESSION FOR* 

* Hi, TABLE. OR * 
*CHAINING FILE * 

* * 
♦***♦♦♦♦* ♦♦♦♦*♦*♦ 



***F3 *********** 
PHTSP 
-♦-*-*-*-*-*-* ♦ 
PRINT 
* SPECIFICATION* 

« IK* *««*♦♦*««*♦♦♦ 



***G3 *********** 
PRTEH 
-*—*—*—*—*—*—* * 
— PRINT ERROR 
* NOTE * 

♦♦*♦****♦******* 



*****CK ********** 

* * 

* * 
->*SET ERROR NOTE * 

* * 

***************** 



♦**B5*** ******** 
PBTEB 
*-*-*_*_*_*-♦- ♦ 

-> PRINT ERROR 
* NOTE * 

**************** 



****C 5*** ****** 
» * 

► EXIT * 

» 4 

**♦****♦*♦***** 



Chart BA. Enter File Specifications Phase (RG02) 
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BEGIN 

* * 
>* ENTHY * 

* 4 
t*^:** ********** 



***Q-f *********** 

BDSPC 
*_♦_*_«_♦_*_»_ * 

READ A — 
* SPECIFICATION* 

+*♦♦♦♦*♦»***♦*** 



. ♦ IS IT A * 
.COMMENT CAED 
♦. ? .* 



D2 *. 
.* *. 
.* IS IT AH * 
*.INPDT SPEC 7 



SKIPA 

***QJ*********** 

PETSP 
*-*-*-♦-♦-♦-*- * 
> PRINT COMMENT 



**************** 



L**** 
* ♦ 
>* CI ♦ 



D3 *. 
.* IS IT *. 
.* AN OUTPUT ♦. YES 
->*.0H CALC SPEC .* 

*. ? .* 
♦ . . * 



****j)H********* 
*CALL NEXT PHASE* 
_>♦ * 

* * 

*************** 



NO 
AND 



L 



♦*** 

* 

>* G2 * 

* * 



FILENAME, FIELD 
OH SEQOEHCE 
TYPES ARE 



***p:j*********** 

PEISP 
_*-♦-*-*-♦-*-* ♦ 
PRINT 
* SPECIFICATION* 

**************** 



**** 

► G2 *-> 

¥ * 

**** 
P 

♦♦♦G2 *********** 



(. CI * 
» * 
**** 



E4 *. 

.* CAN *. 

* VALUE BE * 

ASSUMED FOR 

*. ERROR ? .* 

*. .* 



A MAJOR ERROR 



***m *********** 



**************** 



***G4 *********** 



***P5 *********** 

PUT COHP, PRINT* 
SPEC AND ERROR 
* NOTE * 

**************** 



**** 
t * 

f CI * 
n * 

**** 



**************** 



**************** 



**** 

* 4 

* CI * 

* * 
**** 
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****ai********* 

!■ EHTEU * 



Faon: RGOU 



START 

* CHANGE DEC. * 
*POINT TO COMKA,* 



♦**»******♦♦*♦♦** 



.* IS IT a ♦. YES 

♦.COMMENT CASD .* 

*. ? .* 



* B2 * 

♦ * 
♦ *** 



***B 2 *********** 
* EDSPC * 
* BEAD A CARD * 



***C2 *********** 

* PETSP * 
-> -*-♦-*-*_*_*_* 

* PEINI SPEC * 



* ♦ 

* PUT BLOCK OF * 
->*COHPfiESSION IF *- 

* BLOCK FOIL * 

* * 



****E2********* 
t> * 

" EXIT * 
f * 



INVAL 

***F1 *********** 
PETSP 
_*_*_♦_♦_«_♦_♦ « 

PEINT SPEC HOTE 
* 201 * 

***i|i«*«4>******** 



*****D3********** 

* * 

* * 
->-*DIAGNOSE SPEC *<- 

* * 

* * 
***************** 



*****E3********** 



**#^^*«4:<'^4::|(:4'3»(4(:f(:j( 



***F3 *********** 

* PETSP * 
-*-*-♦-♦-*-*-♦ 
* PEINT SPEC * 

*****♦*♦♦*****♦♦ 



**»* 

* * 

* B2 * 

* * 
**** 



DIAGNOSE: 

EHPTY-SUBBOUTINE CALCS 
LDIAG-TOTAL CALCS 
EOUT-CONDITIOMING INDICATORS 
NEXT 2-VALID OP CODE 
SUBET-FACTOR 1, FACTOR 2 
NEXT 5-EESULT FIELD LENGTH 
NEXT A-EESULT FIELD 
NEXT 6-HALF ADJDST 
NEXT 7-DECIHAL POSITIONS 
NEXT 8-EESULT INDICATORS 
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► * 

* EMTBY * 

¥ * 

♦♦♦♦**********♦ 



FROM:EG04 OE RG06 



:H:***^-\********** 



* INITIALIZE 

♦ ZOUTA.ZBLOT 

* 


**** 

* * 

* CI *-> 

* * 

GISOU .*. 



► IS IT A 

FIELD TYPE 
*. SPEC 7 . 



^f^m^t^Y y ********** 

* DIAGNOSE AND * 
♦COMPRESS COLS. * 

* 7-1K, COLS. * 

* 16-31 * 

* * 



**** 

* * 

* C2 * 

* 4 
**** 



*#*C2***** ****** 
PETSP 
_♦_♦_♦_♦-*-♦-+ * 

-> PRINT SPECIFI- — 
♦ CATION * 



ER160 

♦**02***** ♦♦**♦♦ 
PRTSP 
_♦_*_♦_*-♦-*-♦ + 

> PRINT ERE 160 



L 



lit:************** 

**** 
(■ * 

->* C2 * 

♦ * 
***+ 

**»**E2 ********** 

* DIAGNOSE AND * 
*COHPRESS FIELD * 

->*HAME AND FIELD ♦ 

* END POSITION * 

* * 
**♦*♦*♦♦♦******** 



♦PROCESS SPECIAL* 

* EDIT CODES IF * 

* SPECIFIED * 

* * 
tmtLt************* 



4i*:«:(;3**i|i«*«***** 

* EDSPC * 
_> _*_+-♦-*-♦-*-* 
* BEAD A CARD * 



*♦** 

* * 
->* CI * 

* * 
**** 



:t***^3********* 

* * 

* EXIT * 

* * 

4i**i|r*«**««***** 

TO;EG10 



.* IS IT *. 
, * EITHER 
. LITERAL OR 
♦.EDIT WORD. 



♦ DIAGNOSE AND * 
♦COHPEESS ODTPUT^ 

♦ INDICATOES ♦ 

♦ ♦ 
♦*♦*♦**♦*+♦*♦♦*♦* 



♦♦***J2 *♦*****♦♦* 

* PROCESS AND * 

* COMPRESS * 
-* EDITWORD AND * 

* LITERAL * 

* * 
*«^4i«****4'******* 



*****G3********** 

♦ * 
♦PROCESS OUTPUT * 

>* INDICATORS * 

♦ * 

♦ * 

*t:1,^i^i*imir.^::¥****** 

1 

*♦** 

♦ * 

♦ C2 ♦ 

♦ ♦ 
**** 
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BSGIN 

****A1*** ****** 

* * 

* ENTHY * 

* » 
*************** 



FBOM: RG08 



INSID .*. 

B1 *. 
.*TN?UT, *. 
.* OUTPUT. S *. NO 

*. 'F' TYPE .* 

♦.SPECS ? .* 



***«*C1 ********** 



***************** 



***D1 *********** 
PRISP 
-*-*-♦-♦-*-*-* * 
PSINT HEADING 



**************** 



LOOPA 

«****£ 1 ********** 

* INSERT * 

* PEEDEFINED * 

* INDICATORS IN * 

* TABLE * 

* * 
***************** 



CLHIP 

*****F1 ********** 

* SCAN * 
♦COHPRESSION AND* 
*PUT INDICATORS * 

* IN TABLE * 

* * 
***************** 



****B2********* 
> * 

* EXIT * 

l< * 

>li****** ******** 



1 



***** A3 ********** 



***************** 



*****B3 ********** 



***************** 



JNOER V 

***C3 ♦*****♦*♦** 
PSTSP 
_*_*_*_*-*-*-* * 
PRINT SYMBOL 
* TABLE * 

**************** 



***D3 *********** 



**************** 



**** +23 ********** 

* SCAN * 
*COHPRESSION FOR* 
*INDICATORS AND * 

* INSERT * 

* ADDRESSES * 
***************** 



****j'3********* 
► * 

f EXIT * 
K * 

*************** 
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BEGIN 

* * 

♦ ENTHY * 



FEOIl: RG10 



CLRAA V 

♦PRINT HEADINGS,* 

* PREPARE FOR * 
*SCAN 1, COHPDTE* 

* LENGTH TABIH * 

***************** 



CLTTP 

mm***c2*** ******* 

* CLEAR TABLE • 

* EXCEPT FOR ♦ 

* PREPARED ♦ 

* ENTRIES * 



* CLEAR TABLE 



4 :»)»*** *4<********* 



* FIRST SCAN TO * 
♦BOILD FIELDHAHE* 

* TABLE * 

* * 
********** t**^'*** 



•ASSIGN ADDRESS * 

* PRINT SYMBOL * 

* TABLE * 

* * 



•SECOND SCAN TO * 
•POT ADDRESS IN • 

• COBPBESSION * 

• • 



.* IS THE * 
.TABLE FULL ? 
*. .« 



*****J2 •*•****••• 



* *****«•*#*« *4i**« 



.« ARE ANY *. NO 

->*. LITERALS OSED.^ 

*. 7 .* 



t> * 

* EXIT ♦ 

¥ * 

*************** 



****an********* 

► EXIT * 
* * 

*************** 
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BBGIN 

****A2 ********* 
♦ ENTRY * 

« 4 



FEOH: RG12 



*«* 62 *********** 
PBTSP 
-*-j|c-4i-4i-*-*-* * 
PRIST HEADING 



* * 

* C2 *-> 

* * 

***C2 *********** 

* BDSPC * 

-41-*-*. «-*_*-« 

* READ A SPEC * 



A4 
NO 



ARE CAIC *. 
♦.LITERALS USEg.* 



CBP1 .*. 

r2 *. 
.* *. 
NO .*ABE OOTPUT *. 

*. LITERALS DSED. 

*. ? .* 



G2 *• 
, * *. 
.* IS IT AN 
•OUTPDT SPEC 
*. 

*. .* 
*. .* 
* NO 



F3 *, 
.* IS A *. 
.*LITERAL IN *. NO 
.TABLE ENTRIES.* 



«**4:H2 ********* 

► EXIT * 

* * 



**4'**63 ********** 

* * 
*LIST ADDRESS IN* 

* COMPRESSION *< 

* * 

* * 

I 

* * 

* C2 * 

* * 



k IS IT THE 
END OF THE 
►.TABLE ? . 



*««««G4 ********** 

* NEW ADDRESS * 

* ASSIGNED AND * 
-*LirERAL OOIPOT * 

* IN DSP * 

* * 
********** t**'**** 



*****P5 ********** 

* * 

* * 
->* CLEAR TABLE * 

* * 

* * 
***************** 

1 

**** 

* * 

* C2 • 

* * 
***• 
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START 

****A2 ********* 

* * 

* ESTEY ' 

* « 



***B2*********** 
GETCM 
-*-*-♦-*-♦-♦-♦ * 
GET COMPBESSION 
* SPECIFICATION* 

*♦♦****♦*♦♦♦*♦♦* 



*****C2** **♦♦***♦ 



«4i>t:4i*'»:****«* **************************************** ****** 



* ADDRESS * TYPE * 



ACTION TAKEN 



»*♦♦*+*♦*♦♦*****♦ 



****])2 ********* 

► * 
* EXIT * 

► * 
******♦***♦♦♦** 



* is 1 * Jf * AT £iZ, tJUJLLJJ TiSHJ. J.a£>lj£i« crflWl-n J.U Tj I -^ 

+***♦*♦♦*+****+**♦*****♦***********#****♦***************** 

* — *R OR E* BRANCH TO E 1 ♦ 
********************************************************** 

* — * T * CHECK FOE TALID TABLE NAME, * 

* * * BRANCH TO El * 
.********************************************************** 

* * * CHECK FOE 'AND' RECORD AT E6A: IF * 

* E1A *I * PRESENT, BRANCH TO E6E, IT NOT BRANCH * 

* * * TO E1A * 
♦****♦♦*********+**♦*+*********************♦************** 

* ~ * D * AT E7, CHECK COLUMNS H2-7H FOR * 

* * * VALIDITY, BRANCH TO El * 
********♦***♦***♦♦*♦**♦****♦****♦+****♦*****+*******♦**♦** 

* — * C * TEST VALIDITY OF INPUT IHFEOHATION, * 

* * * BRANCH TO E9 * 
****+******************♦*♦*******♦***********♦**********♦* 

* — * * BRANCH TO E9 * 
********************************************************** 
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BEGIN 

* * 

* ENTRY * 
» ♦ 

+♦**♦***+**♦*** 

♦*** PEOM: RG1 

* B1 *-> 

* * 
**** 

cAicx ': 

***B1 **♦+♦»***** 

GETCH 
_»_*_*_*_*-♦-* * 

G£T COMP SPEC 

* * 



* * 

*?1. F2, RESULT * 

♦FIELD CHECKED * 

* ♦ 

* * 



.* VALID *. 
. ♦ EXSE AND * 
, GOTO OPERA- 
*.TIONS ? .* 



r 

**** 
* * 

* Dt * 
♦ *♦* 



. *0 OR H TYPE*. NEIT 

. OUTPUT ? .* 

♦ . .♦ 



♦ * 

* * 
->*TEST FACTOR 2 *- 

♦ * 

* * 



* ♦ 

* TEST RESULT * 
>* FIELD FOE *- 

* ALPHABEBIC ♦ 



4i;)c4iiti**i|i:|<#4<4i****** 



*****(;2 *♦*♦♦**♦** 



♦ TEST RESULT * 
->* FIELD.FI, AND *- 



f2 



^^mif*'^*')'********'^' 



♦♦♦**H2 ********** 



->♦ TEST F1, F2 



I)i4(l|i«:(<4r4<********** 



*****J2 ********** 



i)LJH,itii^if *********** 



****D3 ********* 
t * 

f EXIT * 
!■ * 

if************** 



*.SPEC 'OB'. 
*.TYPE .* 



1 



*****-^2********** 



***************** 



E9G1 

*****£4 ********** 

* ISAM BEQUEST, * 

* SPACE, SKIP, * 

* STACKER SEL * 

* CHECKED * 

* * 
***************** 



***F1( *********** 
PETER 
**_*_*-*_*-*-* * 

PRINT ERROR 
* NOTE IF * 
NEEDED 
**************** 



**** 
X * 

* J3 *-> 

* * 
**** 



***J3*********** 
PETER 
-♦-*-*-♦-♦-*-* * 
-> PRINT ESEOE 
* NOTES * 

**************** 



K1 *. 

.♦ IS *. 

.*OPCODE ADD,*. 

. Z-ADD, SUB, . 

*.Z-SUB 7 .♦ 



*****K2********** 

* * 

* TEST RESULT * 
->*FIELD, F1, AND * 

* F2 * 

* * 
***************** 



**** 
K * 
If J3 * 

K * 
♦ **♦ 
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STiBT 

* * 

* EHTBr * 

* 4 



*«***B2 ********** 

♦ SET POIHTEH * 
*HITH EBBOH NOTE* 

->* »DDHESS OP * 

* DIAGNOSTIC * 
1,2.3 



— DIAGNOSTIC 1, 2, 3 
BEFEBS TO BG19, 
BG20, RG21 



B .*. 

D2 «. 

.* *. 

,* ABE ALL * 

. EBBOB MOTES 

*. CALLED ? .* 

♦. •* 

*. .* 



>* CALL PBINTEE 



*******4i**4i4i«*«** 



***D3 *********** 
PBTEB 

— PBINT ALL EBBOB 
* BOTES * 

* ***** **«***«4r*« 



****B3** ******* 

* « 
->* EXIT * 

* 4 



«««*P2 ********* 

> 4 

► EXIT * 

» 4 

«*4i4>**«******** 
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* * 

» ENTEY * 
► ♦ 



FEOM: BG19 



*MOVE ENTEIES IN* 
♦FILENAHE TABLE * 

* TO lOTAB ♦ 

* ♦ 



C2 *. 

.♦ ♦. 
. * IS COMP < 
. SPEC FILE 
*.DESCH 7 .* 

*. .* 

*. .* 



* STOKE DEVICE 
♦CODE IS lOTAB 



*****:t:*^^^*l^:f***<^m 



*****E2********** 
♦STORE LENGTH OF* 
*SECORD, OF KEY,* 
*0F RAP IN lOTAfe* 



***4i*4r«***4l*:|r4i 1^*41 



*«*F2 *********** 

GETCH 
-*-*_♦_*_*_:!,_» ^ 

GET NEXT 
* COMPRESSION * 



*4>***«*4»l< ******** 



****D3********* 

* * 

* EXIT * 
» ♦ 

*************** 
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* * 

* A3 * 



****i2 ***♦***♦* 
► * 

•■ ENTRY * 



k^ *. 
. *IS DISK*. 

FILE IN 

SOURCE 
, PEOGHAH " 



*. 



, * 



****A5** ******* 
•■ * 

* EXIT ♦ 

* * 



FEOH: KG22 



* GET ADDRESS * 
♦FIRST ENTRY OF * 

* lOTAB * 

* * 

***********:»***** 



♦** +84 ********* 

* * 

* EXIT * 
» * 



*****C2 ********** 

* * 

* GET ADDRESS * 
♦FIRST ENTRY OF * 

* FILE1 TABLE * 

* * 



*****C3 ********** 

* * 
♦GET ADDRESS OF * 

* NEXT FILE1 ♦ 

* TABLE ENTRY * 

* * 



*******♦♦♦*♦++*♦*♦*♦♦*♦♦*♦♦+ 

* DEVICE IS ONE OF THE * 

* FOLLOWING: * 



.*. 

D2 

.*IS THE 

* DEVICE 

NON-DISK 



*. 



* 1'*«2 READER ♦ 

* 2501 READER ♦ 

* 1132 PRINTER ♦ 
-* 1403 PRINTER * 

* CONSOLE PRINTER * 

* 1442 PUNCH * 

* 1442 READ/PUNCH OUTPUT * 

* 1442 READ/PUNCH COMBINED * 

* * 



*GET ADDRESS OF * 

* NEXT lOTAB * 

* ENTRY * 

* * 



*****E3********** 



♦*♦****♦***♦*♦♦♦* 



***F3*****++**** 
PDTOB 
-*-*-*-*-♦-♦-* * 
OBJECT CODE 
* OUTPUT IS DSF* 

********♦*♦♦♦♦♦* 



Chart EB. Assemble 2 I/O Phase (RG24) 
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BEGIN 

****A2********* 

* EHTEY ♦ 

* * 



FEOM: RG2i( 



*****B2********** 

* * 
♦GET ADDRESS OF * 

* FIRST lOTAB * 

* ENTRY * 

* * 



♦****C2 ********** 

* ♦ 

*GET ADDRESS OF * 

* FIRST FILE1 * 

* TABLE ENTRY * 

* * 

**** 

* * 

* D2 *-> 

* * 
**** 



. * IS FILE 
. SEQUENTIAL 
*. UPDATE ? . 



.* IS FILE ♦. YES 

. SEQUENTIAL .* 

*. OUTPUT ? .* 



.* IS IT ♦, YES 

.DIRECT ACCESS.* 

*. 7 . .* 

*. .* 



*GET ADDRESS OF * 

* NEXT lOTAB *< 

* ENTRY * 

* * 



*****H2 ********** 

* * 

*GET ADDRESS OF * 

* NEXT FILEI * 

* ENTRY * 

* * 

***«*«**** 4c 4<**4<*4i 



SEQUP 

* SET I/O/U IN ♦ 

* DISK FILE * 
>*INFOEMAII0N TO ♦- 

* U * 

* * 

***««****4<4(«*4i«4i« 



SEQOT 

*****E3 ********** 

* SET I/O/U IN * 

* DISK FILE * 
>*INFOEHATION TO *- 

* * 

* * 
♦**♦**♦*♦**♦*♦♦*♦ 



*«**4i««4<i|c*:j,««:{,«4,^ 



*****EU********** 



*>|>«*4<*>|i*«4>**4<**** 



***ir*YH***^,:^^,^^^,^ 



*****^iti***ilL*^i^:tHi^i 



***G4 *«*«*«** *4<* 

PUTOB 
-*_♦_♦_*_*_+_* ^t 

PUT lOD IN DSF 
* FORMAT * 

****««4i4***4i%*«4< 



*****JiH********^:^: 



if***:^**:t,^^^H,^:t:^,^,^, 



****K 2 ********* 
► * 

" EXIT * 

* * 



**** 

* ♦ 
->* D2 * 

* * 
**** 
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PC ALL 

* * 

* EXIT * 

+ * 

*♦*♦***♦***♦**♦ 



****A2* ******** 
» * 

► ENTBY * 
f * 



PROM: EG26 



«*««*B2 ********** 
*GET ADDRESS OF * 
♦FIRST lOTAB AND* 

* FIRST FILE1 * 

* ENTRY * 

* * 

**** 
m * 

* C2 *-> 

* * 
**♦* r 



.* DOES ISAH *. YES 

*. PROCESSING .* 

*.OCC0R ? .* 



*GET ADDRESS OF * 
-* NEXT FILE1 * 

* ENTRY * 

* * 



*********************************** 

* * * 

* ISAH RODTINE * BRANCH TO * 

* * * 
*********************************** 



LOAD 
ADD 



L0AD1 
IADD1 

SEQR1 



* RETRIEVE * EAND1 * 

* * ♦ 
*********************************** 



*****j}3********** 

* BOILD THE DFI * 

* TABLE AND * 
*10GICS FOR THIS* 

* FILE * 

* * 
***************** 



***E3 *********** 
PDTOB 
-*-♦-*-*-*-*-* * 
OOTPOT THE I/O 
* LOGICS * 

**************** 



*****F3 ********** 

* * 
*GET ADDRESS OF * 

* NEXT lOTAB * 

* ENTRY * 

* * 
***************** 



Chart ED. Assemble 4 I/O Phase (RG28) 
42 



AOOOO 

****a2 ********* 

* * 

* ENTRY * 

* ■» 
*************** 



FBOH: RG28 



aooio V 

***B 2 *********** 
GETCH 
_♦_*_*_♦_♦_*_♦ « 

GET COHPBESSIOH 

* BLOCK 1 * 

**** 

* * 

* C2 *-> 

**** 

.*. 
C2 *. 

.* *4 



TBLG1 T 

***D2 *********** 
PUTOB 
-*-♦-*-*-*-*-♦ ♦ 
PUT OUT TABLE 
* AREA 1 * 

***«*4<**4i*4<***4<* 



.* IS IT 
. ALTERNATE 
♦.TABLE ? . 



TBLGA 

♦♦*F2 *********** 
POTOB 

PUT OUT TABLE 
* AREA 2 ♦ 



TBLLD 

♦**G2*********** 
PUTOB 

-> POT OUT TABLE 
* LOAD * 



***E3********»** 

PUTOB 
-*-*-*-♦-♦-*-» * 

PUT OUT TABLE 
* LOAD DRIVER * 

«4>******** ****** 



**}|>«F3«4>****>ti4<* 
)> * 

* EXIT * 
f ♦ 

***********«4<** 



H2 ♦. 
.* ♦. 

IS IT 'TO *. 

FILE' ? 



TDUP 

***H3*********** 
PUTOB 
-*-*-*-*-*-*-* * 

> PUT OUT TAB 

* DUHP * 

*:»*>l<*4>********** 



* INCREMENT TO * 

* NEXT * 

* COMPRESSION * 

* * 

**********!» 4<**4<** 
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BEGC1 

♦***A2 ********* 

* « 

* ENTRY « 

* * 



FEOH: RG32 



***♦ 

* ♦ 

* B2 *-> 

* * 
*♦** 

HEX 

***B 2 *********** 
HDSPC 

GET 

* SPECIFICATION* 

***+♦♦*»*♦*♦♦*♦♦ 



*****C1 ********** 



*♦*♦ 
¥ * 

->* 82 ♦ 

» ♦ 



L 



, *IS IT FILE *. 
, DESCRIPTION . 
*. SPEC ? .♦ 



***************** 



■■•n 



*****E3********** 



***************** 



***P3 ******+»..,*♦ 

PUTOB 
-*-*-*-*-*-*-* * 
PUT GOT EA CODE 



**************** 



* GENERATE CI. ♦ 
*C2, C3 CHAINING* 

* BINS ♦ 

* * 
***************** 



***f{2 *********** 
PUTOB 
-*-*-*-*-*-*-* ♦ 
POT CHAIN 
* RODTIHES * 

**************** 



****J2 ********* 

* * 

* EXIT * 

* * 
*************** 



**** 

* * 

* B2 ♦ 

* * 
***« 
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YES .* IS IT THE *. 

*. END OF COBP . 

♦.BLOCK ? .* 



♦♦♦E2 *********** 
PUTOB 
_♦_♦_♦_♦_♦_♦_* ♦ 

GENESATE BI 
* CFLD1 DC * 



K * 

* EXIT t 

K * 

*************** 







***BU *********** 


****B3 ********* 


PUTOB 


* * 


_*_♦_*_*_*_*_♦ * 


* ENTRY * 


GENERATE BI 


* * 


* CFLD1 DC * 


*♦*****♦**♦**** 








*****♦*♦***♦*♦** 


**** 


FEOM: RG3« 


**** 




* ♦ 




* * 




* C3 *-> 




♦ C4 *-> 




* * 




* * 




**** 




**** 




TART V 


BALR V 


***C3*********** 


***C4 *********** 


GETCH 


PUTOB 


_*-*_*_*-*_*_* * 


-*-*-*-*-*-*-♦ ♦ 


> aw RTnrff nv 


GENERATE B 1 DC 


^ VUZil DljUV^n UJ? 


* COHEKESSION * 


* 


* 



**************** 



**************** 



BBB 

*****Dt ********** 

* CLEAR * 

* DECOMPRESSION * 
>* AREA AND MOVE * 

♦FIELDS INTO IT * 

* FROM CHPAD * 
♦*♦******♦+**♦*♦* 



*****E3 ********** 

* * 

* GET NEXT * 

* COMPRESSION * 

* RECORD ♦ 

* * 
***************** 

**** 



**** 

* 4 
->* B4 * 

* 4 
**** 



***'P,H *********** 

PUTOB 
-*-♦-*-*-♦-*-♦ ♦ 
GEHERATE OBJECT ~ 
* CODE ♦ 

**************** 



**** 

K <* 

•■ C3 * 

**** 



******* 



* - AT TMEND, OBJECT CODE 

* FOR FIELD RECORD 

* RELATION 
* 

* - AT GENMV. LIBF TO HOVE 

* FIELDS FEOM I/O 

* BUFFER TO HOLD AREA 



* - AT AFTST, OBJECT CODE 



AT STERL. STERLING 



OBJECT ROUTINE 



**♦* .♦ *. 

* * NO .* *. 

* B« *< *. FIRST TIME ? .♦<- 



**** 

* * 

* 04 * 

* * 
**** 



G3 *. 

.* *. 

.* IS IT THE *. 

. END OF COHP .^ 

♦.BLOCK ? 



*, 



.* 



♦♦♦H3 ♦♦♦♦♦♦***** 
GETCH 
-*-♦-♦-♦-*-♦-♦ ♦ 
GET NEXT BLOCK — 
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****A3 ********* 

► * 
f EHTRY ♦ 

► ♦ 
****♦**♦♦**»*** 



FROH: KG36 



PUIOB 

-> GEH OBJ CODE 
* FOE PEOC * 

******** «*^:|,*^:|,:|, 



***C2 *********** 
GETCn 

GET NEXT BLOCK <- 
* OF COUP ♦ 

**************** 

* * 
>* C3 ♦ 

* * 
**** 

5D 

*****D2 ********** 



**** 

* < 

* C3 1 

*■ 4 

**** 



YES .* IS IT THE *. 

*. EHD OF COMP . 

*. BLOCK ? .* 



***>|i*4i«****:ti4:»*** 



E4 ♦. 

.* IS *, 

.* THEEE 

NOtlESIC 

♦.SEOnENC- , 

*.ING ?.* 

*. .* 

♦ NO 



♦****E5********** 



Hi**************:)!* 



****F3 ********* 
» * 

* EXIT * 
► * 



nt*****^**m*:t***iH: 
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BEGUg 

♦♦**A2 ********* 

* * 

* ENTBY * 

* 1 
*************** 



FROM: EG38 



♦ALLOCATE LOHFLD* 



^^if^^i************ 



*««:t<4!>|(« ********«« 



4i««*««4<* 



*«**4<************ 



r 

**** 

* J2 * 

* x 
**** 



• *. 
HI *. 
.* DID *. 
PEEV REC *. 
TYPE HAVE .♦<- 
.MATCHING .* 
*.FLD 7.* 
*. .♦ 
* YES 



J 1*1 



nHi4:*****^l 



POT ODT EOUTIKE 
TO COMPABE HEW " 
FIELDS TO HOLD 
♦ ABEA * 



POTOB 
_♦_*_*_♦_*-♦-* * 

POT OUT BRANCH 
* TO EXTRACTION* 
ET 
*4<************** 



C2 



*. 



.*IS THIS THE*. YES 

*.EHD OF FILE1 .* 

*. TABLE ? .* 
*. .♦ 
♦ . . * 
* NO 



D2 *. 

.♦EITHER *. 

3 .* A PRIMARY 

-*. OR SECOND- 

*.AEY FILE . 

♦ . ? .* 



♦****E2 ********** 

♦SET STATUS WORD* 
*T0 INDICATE IF * 
♦EOF IS NEEDED ♦ 
* ♦ 



NOTE 

!|<*4<**F2******+*** 
♦MODIFY OBJ CODE^ 

♦ TO REFLECT + 
♦ ASCENDING OR ♦ 

♦ DESCEND * 



4<*;|<*4<*^*^******** 



H2 *. 
EITHER 



♦ ♦*♦ 

♦ ♦ 

♦ J2 ♦-> 

♦ ♦ 
**** 

♦♦♦♦*J2 ********** 

♦ * 

♦ POINT TO NEXT ♦ 

♦ COMPRESSION ♦ 

♦ RECORD ♦ 

♦ * 
*i|c**««4>4'********* 



.* IS THERE ♦. NO 

->+.MORE THAN ONE.* 

*. FILE 7 .* 



NORMA 

♦****D3 ***♦*+**** 

* CALCULATE * 

* LENGTH, THEN * 
*FIELD ADDRESSES* 

* FOR MFTST OBJ * 

* CODE * 
***************** 



EFIT 

POTOB 
_♦_♦-*-*_*-*-* * 

POT OUT OBJ 
♦ CODE FOR MFTS* 
ROUTINE 



»*+G3 *****♦♦♦♦♦* 

GETCM 

-♦-♦-♦-♦-♦-*-* * 

GET INPUT 

* COMPRESSION * 

♦ *** 

* 1 

* H3 *-> 

* ■( 
*♦*♦ 

ACK 

H3 



. ♦. 



*. 



,*IS SEQUENCE*. 
CHECK .^ 
*. SPECIFIED.* 



***E't *********** 
POT OUT OBJECT 
CODE FOE LOWFLD* 
AND PS HOLD 
* AREA * 

♦♦♦♦♦♦♦♦♦***♦*♦♦ 



NSEQ1 

♦ ♦♦Fl| ♦♦♦******** 
POTOB 
-*-*-*-*-+-*-♦ ♦ 

PUT OBJ CODE 

♦ FOR EOF lES ♦ 

ROUTINE 



.♦ IS THIS A *. 
. MATCHING .* 
*. FIELD 7 .*. 



***K3** ********* 

POTOB 

-*-*-*-*-«-♦-♦ ♦ 

POT OUT 

* EXTRACTION * 

CODE 



.* DID *. 
.* PEEV EEC *. NO 

♦.HAVE MATCHING. ♦ 

♦.FIELDS 7 .* 



*♦ ♦Kit *********** 
POT OUT COMPARE 
*AND BEANCH TO * 
EXTEACTION RTN — 
!■ LAST TIME ♦ 



->^GET NEXT BLOCK * 

* * 

* * 

1 

♦ ♦♦♦ 

* ♦ 

* H3 ♦ 

* ♦ 
**♦♦ 



f * 

* EXIT • 

* 4 
**:» 41***** ****** 



****♦**♦♦♦♦♦♦♦♦♦ 
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EEG50 

*♦** A3 ***♦+***♦ 

♦ ENTRY ♦ 

* * 
♦***♦»**♦*♦♦♦♦* 



****D1 ********* 

* * 

* EXIT * 

* * 
*************** 



***************** 

♦ *** 

* * 

* C2 * , 

* * I 
**** I 

POTN T 

*****C2 ********** 



***************** 


**** 




* * 




* D2 *-> 




* * 




**** 


P0T2 .*. 


D2 *. 


.* *. 


YES .♦ END OF *. 


*. TABLI 


! ? .* 



FBOB: BGKO 



BESET V 

***B3 *********** 
GETCH 

GET COHPEESSION 



**************** 



.* *. YES 
*. 'AND' TYPE 7 .* , 



DTYP2 .*. 

C4 *. 

.*IS THIS*. 

.* FIBST 'D' *. 

>*. TYPE AFTER . 

*.'I' TYPE .* 



*****Dlt ********** 

* HOVE HP ♦ 
♦EXTRACTION AND * 

* INPUT FIELD * 
*ADDE FROH COHP * 

* TO FILTAB * 
***************** 



>* C2 * 



*****F2 *♦♦**♦**** 

* * 
♦POT ADDRESS OF * 

* FILTAB-K IN * 

* FILB1 TABLE * 

* * 
***************** 



APT 



G2 



.* IS IT *. 
NO .* EITHER A ■ 

♦. PRIMARY OR 

*.SECONDRY ." 
♦.FILE .♦ 
♦. . * 
♦ YES 



♦♦*H2 **♦*****♦♦♦ 
PDTOB 
-*-*-*-*-*-*-* * 
PDNCH GET 
* BODTINE FOR * 
THE FILE 
**************** 



***************** 



*****F3********** 

* HOVE INPUT * 
*KECORD ADDRESS * 

* FHOH * 
*COMPRESSION TO * 

* FILTAB * 
***************** 



***G3 *****♦**♦*♦ 
PDTOB 
-*-*-*-*-*-*-♦ * 
PDNCH FILTAB 
* FOE PSIVIODS * 
EECOH TYPE 
**♦*♦*♦*♦******» 



*****F1( *♦*♦*♦***» 

* MOVE CONTROL * 
♦LEVEL ADDE FROM* 
♦COHPEESSION TO * 

* FILTAB * 

* * 
***************** 



* POINT TO NEXT * 
-♦ENTRY IN FILE1 ♦ 

* TABLE * 
+ * 
***************** 
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»**A1 *********** 
GETCM 
_♦_*_*-♦-*-*-* * 
-> GET COBPEESSIOB 

* BLOCK * 

**************** 

**** 

* * 

* B1 *-> 

* * 
**** 

♦**B1 ****♦♦**♦** 
GETCH 
-*-*-*-*-*-*-* * 
GET 

* SPECIFICATION* 

**************** 



****j,2 ********* 

► ♦ 
* ENTRY * 

► * 
*♦*♦*♦♦+******+ 



FEOM; EGi(2 



->*GET ALPHA WORD * 



***************** 



YES .* IS IT END *. 

*.0F COHP BLOCK.* 

*. ? .* 
*. .* 
*. .* 
* NO 



****£1 ********* 
K * 

K EXIT * 
!• •• 

*************** 



.* IS OPCODE * 

. CHAIN 7 

*. . * 

*. .♦ 

*. .* 

* YES 


.*. 

D2 *. 

.* ♦. 

.♦IS IT FIRST* 

. CHAIN ? 



n 



***E2 *********** 
. PDTOB 
-*-*-*-*-*-*-* * 
GENERATE CHAIN 
* SUBROOTIMES ♦ 

**************** 



***************** 



*****])3********** 

* MODIFY LOKUP * 

* ROUTINE AND * 

* GENERATE OBJ * 

* CODE * 

* * 
***************** 



********************************************** 

* LOKUP * ARGOHENT TABLE * LOKDP INSTRUCTION * 

* * ASCENDING * TYPE IN HHICH * 

* TYPE * OR * ADDRESS IS STORED * 

* * DESCENDING * * 
***♦****♦*******♦♦*******♦**»********+*♦**♦*** 



* * A * I ♦ 

* HIGH ************************************** 

* * D * III * 
.******************♦************♦******♦******♦ 

* * A * III * 

* LOW ****♦*****♦*********+******♦********** 

* ♦ D * I ♦ 
********************************************** 

* HIGH, * A * II * 

* ' ************************************** 

* EQUAL * D * IV * 
********************************************** 

* LOW. * A * IV * 

* ' ************************************** 

* EODAL * D * II * 
********************************************** 



PUTAD V 

*****P2 ********** 

* PUT ADDR OF * 

* CHAIN * 

* SUBROUTINE IN * 

* COMPRESSION * 

* * 
***************** 



**** 

¥ * 

* B1 * 

¥ * 

**** 
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****Ii^ ********* 

f * 

* EHTEY * 

t * 



FBOH: BGltU 



:;taet 

* save detail * 

* calculation * 

* addbess in ♦ 

* COHABEA * 

* * 



**** 
f * 

* CI * 

* ^ 
**** 



***c^*********** 

GETCH 
-*-*-*-*-♦-+-* * 
GET COMPBESSION 
* SPEC * 



**** 
c * 
K A2 * 

«> 4 
**** 



**** 

» * 

* A3 ♦ 



.* IS THIS A 

*. SUBBOOTINE 

*. SPEC ? . 



***Z2***** ****** 

♦PATCH BOUTINE * 
FOE FIBST PAEM 
* - BFSI1 * 



***C2 *********** 
PDTOB 
-*-*-*-♦-*-*-♦ * 
GEN LINKAGE TO 
* HEADING AND * 
DETAIL LINES 
****** **^******* 



*****D2 ********** 
♦SAVE TOTAL CALC* 

* ADDBESS IN * 

* COHABEA * 

* (NOTES + 8) * 

***************** 
**** 

K * 

->* A3 * 

* * 
»*♦♦ 
.*. 

E2 *. 

.* *. 

.* FISST *. 1! 

->*. SUBEOHTINE . *- 

*. SPEC .* 



L 



*****i3 ********** 



***************** 



***C3 *********** 
AHY1 
_*_♦_*_*_*_ ♦.^ 

PATCH BOUTINE 
* FOB FIBST ♦ 
PABH - EGSI1 
**************** 



***D3 *********** 
PUTOB 
-*-♦-♦-*-*-*-* * 
GEN LINK TO 
* TOTAL LINES * 
BOUTINE 
**************** 



.*IS THIS THE*. 
. FIRST SUBET . 
*. SPEC 7 .* 



***** Alt ♦*****♦*♦* 

* GEN * 

* CONDITIONING * 

* IHDICATOS * 

* TESTS, IF * 

* NEEDED * 

*************** :),^ 



OPEB 

***Blt *********** 

GEN OBJ CODE 

AND/OR LINKAGES 

TO SUBBOOTINE 

* FOE ♦ 

OPEEATIONS 

**************** 



KGSI2-SETS AN INDICATOK ON 
OB OFF DEPENDING OH 
THE CONTENTS OF THE 
RESULT FIELD 

RGSI3-SETS INDICATOR ON 

EGSI4-SETS INDICATOR OFF 



► *Clt*********** 
PDTOB 
-*-♦-*-*-•-*-* * 
GEN LINKAGES TO 
* RESULTING IND* 

**************** 



r 



» IS TOTAL * 

CALC SNITCH 

*. SET .* 

*. .* 



**** 

* * 

* Alt * 

* , * 
**** 



****P3 ********* 
«< * 

* EXIT * 

* * 
*************** 



NO . 


* IS THIS A 


, * 


TOTAL CALC 




*. SPEC ? 




*. .* 




*. .* 


**** 


* YES 


* 


1 


M * 


1 


* 


* 


**** 


**** 




♦ * 




* A2 * 




* * 




**** 
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* EIITBT ■» 

* 4 



FBOR: S646 



* B2 * 



6ETCII 

GET FIRST 

* OOTPOT COHP ♦ 

BLOCK 

* ♦ < 

* CI *-> 
4 « 

EGG .*. 

CI *. 
.* ♦. 

.* IS IT AM *. II 
*. »«• SPEC 7 .«— 
♦• .* 



GETCH 

— GET HEXT 
* COMPBESSIOM * 
BLOCK 



**** 

* 1 

* D3 1 

**** 



*****24**4<* *«**<<* 



**4«4<*4<*44>«4<«44*>l< 



PIHST V 

PUTOB 
-♦-*-*-*-*-*-* * 
GEN BEQ 
* INDICiTOB ♦ 
TESTS 
4 4<4«4i*4*****+:f4<* 



D1 



*. 



IBS .* IS IT All 
, ♦. "O" SPEC ? 

r *-.- -• 



•**« 






« HO 


* 








D3 * 








« 








»»*♦ 






1". 






E1 


*. 






* 


♦, **«* 




« 


END 


OF *. »0 * 


* 


ODTPOT 


COUP ?.♦ >* B2 




*. 




.* « 



• IBS 

IF LIMKAGE CODE 

IS REQOIBED. POT 
OUT OBJ LINKAGE 



•**E3 ♦****♦♦*♦*♦ 
POTOB 
-*-*-*_♦_♦_*_* ^ 

PUT OUT LINKAGE 
* * 



» « 

► EXIT * 
* * 



.♦ 



.*. 

F3 *. 

.* IS IT *. 

EITHEE *. 

'AND' OB 'OE'. 

TYPE SPEC* 

*. ? •* 

*. .* 



. * IS IT A *. NO 

.PBINTEB FILE •* 

♦ . 7 .* 



ETBL 

***D5*********** 
PUTOB 
_*_*-*_*-♦-♦-♦ * 

> GE8EBATE 

* STEELING * 
OBJECT CODE 
♦**♦****♦**♦**** 



.*IS THEBE AK*. 
. EDITWOBD 7 .' 
*. .* 



**+F5 *********** 

POTOB 

-♦-♦-*-*-*-♦-♦ * 

PUT OUT OBJ 

CODE FOB EDIT* 



*« 4*******4***** 



44**44*****4***** 



FLDN1 V 

***GU *********** 
POTOB 
-*-4-*-*-4-4-4 * 
PUT OUT OBJ 
4 CODE FOB FLD * 
OE LIT 
444******444**** 



_4_*_*_*_4_*_* 4, 



*4 44**** 44*****4 



*GET HEXT SPEC *- 



•**4444444*444*** 
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**♦♦ 

* A3 ♦ 

* * 
**** 



♦****J5 ********** 



****j1*** ****** 
i> * 

► EUTEY * 
«i * 

*************** 



*****B1 ♦♦*♦***♦** 

* * 
*SftVE ADDRESSES * 

* OF OBJECT * 

* BODTINES * 

* * 
***************** 



***C1 ♦******♦**♦ 
PUTOB 
-*-*-*-*-*-*-♦ * 
GENESATE OBJECT 

* BOOTINES * 

*****♦**»***♦*+* 

**** 

* * 

* D1 *-> 



**** 
IFETC 

***D1 ***♦♦♦*♦*** 

POTOB 
-*-*-*-*-*-*-* * 
GET FIRST 
* OUTPDT COMP ♦ 
BLOCK 
**************** 



♦ ♦** 

* * 

* El *-> 

* * 
**** 

z 

31 



* GET HEXT * 

* COMPHESSION * 
♦SPECIFICATION * 

* * 
***************** 



.+ 



*. 



.* IS THIS *. YES 

->♦. FIRST n SPEC .* 

*. ? .* 



L 



**** 

* 

>* D2 * 

**** 



*****S3 ********** 



***************** 



*****E3 ********** 



*♦****♦♦♦****♦*** 

**** 
» * 
->* D2 * 
* * 
*«** 
*. 
F3' 



i«*** 

L 



***************** 



****E4 ********* 

* * 

* EXIT * 
» * 

*************** 



.* DOES SPEC *. YES 

->♦. CONTAIN X'FD'.* 

*. ? .* 



.* 



*. 



.♦PASS 1, 2, *. YES * * 

->*.3, EXPS 3, «,.♦ >* D1 t 

♦ .5 7.* ♦ =• 

♦. .* **** 



***************** 

**** 

t * 

->♦ D1 * 

* * 

*♦** 

*****B5*** ***+*♦♦ 



L 



L 



***************** 

♦**♦ 
> * 

->* D1 * 
* * 
**** 

****+C5****«***** 

* * 

* BUILD DETAIL * 
->*OVERFLOW LINES * 

* TABLE * 

* * 
***************** 



♦ *** 
H * 

* D1 * 
» * 

*♦** 



G1 *. 
.♦ *. 
.* IS IT THE t 
♦.FIRST PASS ? 



, NO 



FFT ^' 

♦**G2+^*+*^^***^ 
GETCB 
-♦-♦-*-♦-*-♦-♦ ♦ 
GET HEXT 
♦ COMPRESSION ♦ 
BLOCK 
**************** 



♦ ♦♦* 
«< 4 
f A3 t 

*■ * 

♦ ♦♦♦ 



***g1 *********** 

POTOB 

_♦_♦_*_*_*_*_* * 

GENERATE 
♦ INDICATOR ♦ 
TEST 
**************** 



♦ ♦*♦ 
X * 

* D2 * 

* * 
***♦ 



♦ ♦♦* 
•< t 
* El * 
¥ 4 

**** 



FHSED 

****j3 ********* 

* ♦ 

* EXIT * 

* ♦ 
*************** 



*********♦*♦********+*♦*************♦♦♦♦**♦♦♦♦♦♦*♦ 

♦ * 

♦ A SWITCH WORD. TAIN1. IS CHECKED FOR EACH PASS * 

♦ TO DETERMINE IF THE ENTRIES FOR A TABLE ARE TO * 

♦ BE COHPLEIED. * 

♦ ♦ 
************************************************** 

♦ PASS ♦ FUNCTION ♦ 
************************************************** 

♦ 1 * PUTS OUT INDICATOR TESTS- * 
.************************«*****♦****♦♦*♦*♦♦**♦**♦♦* 

♦ 2 * BUILDS TABLE FOR DETAIL LINES * 
************************************************** 

♦ 3 * BUILDS TABLE FOR TOTAL LINES * 
************************************************** 

♦ EXPS3 ♦ BUILDS TABLE FOR OVERFLOW LINES * 
****************************>);****************♦♦♦♦* 

♦ « * BUILDS TABLE FOR DETAIL OVERFLOW LINES ♦ 
************************************************** 

♦ 5 ♦ BUILDS TABLE FOR EXCEPT LINES ♦ 
************************************************** 



Chart FJ. Assemble PUT Phase (RG54) 



52 



BEGIN 

**** A3 ********* 

* * 

* ENTBY ♦ 

* * 
♦*♦******♦***** 



FEOH: SG56 



.* 4EE ANY *. 
. CHAIN FILES . 
♦.SPECIFIED.* 



*****B4 ********** 

* ♦ 

* POT FIITAB-1( * 
->♦ ADDRESSES IS * 

*HASTER DEIVEB * 

* * 



.* ABE ANY *. 

*. DISK FILES . 

*. SPECIFIED.* 



.* SEE ANY * 
. TABLE FILES 
*. SPECIFIED. ^ 



*****C1( ********** 

* * 

* GENEEiTE * 
>* BBANCHES TO * 

*OPEN AND CLOSE * 

* * 



4*4< 1**1)4 4<**4<****** 



***************** 



*PDT OUT LINK TO* 

* HEADING AND * 

* DETAIL LINE * 

* * 
***************** 



*****F3 ********** 
♦FILL IN OBJECT * 

* TIHE * 
*C0HHnNIC4TI0NS * 

* AREA * 

* * 
***************** 



***G3*********** 
PRISP 
-*-*-*-*-*-*-* * 
PEINT KfiY ADDS 



BONE t 

***H3 *********** 
PBlSP 
-*-*-*-*-*-*-* * 
IP ISAM USED, 
* PRINT SECTOB * 
INFO 
**************** 



***************** 



****K3 ********* 
* * 

f EXIT * 
¥ * 

*************** 
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so .* HEED TO * 
--*. HOVE OBJECT 
*. CODE ? .* 
*. .* 



BEGIN 

****A2 ******♦♦♦ 

* * 

* EHTBY * 

* ♦ 



FEOH: EG10 
HG19 
RG58 



4<**** ************ 



♦♦♦C2 •**»♦♦♦♦*** 
DZOOO 
_♦_♦_♦_♦_♦_*_* « 

LOAD PRINT 
♦ ROUTINE ♦ 

*4i*4c*4(* ********* 



EDDSF i' 

*****£^ ********** 

* MOVE OBJ CODE * 

* TO START OF * 
♦WORKING STORAGE* 
*2 SECTORS AT A * 

* * 
***************** 



E2 *. 

.* IS *. 

.* MOBKING *. 

STORAGE 

♦.EXCEEDED .♦ 

*. ? . ♦ 

♦. .♦ 

♦ NO 



***************** 



♦UPDATE DCOM ON ♦ 
+ SISTEH ♦ 

* CARTRIDGE ♦ 

♦ ♦ 
***************** 



* WORKING ♦. 
STORAGE ON . 
f. DRIVE ?.* 



*****H1 ********** 



***************** 



.♦ ABORTIVE ♦. 
. COBPLIATION . 
♦.ERROR 7 .♦ 



«*«**(; 2 ♦*♦*♦♦♦♦** 

♦ ♦ 

♦ ASSOHE ♦ 
♦DIAGNOSTIC HON ♦ 

♦ OPTION (/000«) * 

♦ " ' * 
***************** 



->+N0 DUP, NO XEQ ♦ 



***************** 



***************** 



***G It *********** 
PETSP 
-*-*-*-*-*-*-* * 
PRINT MESSAGE 



**************** 



*****H2 ♦♦♦♦♦*♦♦♦♦ 

♦ ♦ 

♦ END OF ♦ 

♦ COBPILATIOB ♦ 

♦ MESSAGE ♦ 

♦ * 
***************** 



**«J2 *********** 
PRTSP 
-♦-*-♦-*-*-*-♦ ♦ 
PRINT MESSAGE 



**************** 



* * 

* EXIT ♦ 

* * 
*************** 
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PHASE DIRECTORY 



The Phase Directory lists the 29 phases of 
the 1130 RPG Compiler in numeric sequence. 
It summarizes the operations of each phase, 
and lists the corresponding Module Name 
and Point of Entry. Chart ID identifies 
the appropriate flowchart for each phase. 
(See Compiler Flowcharts.) 



Module 
Name 


Generic Name 


Chart ID 


Entry Point 


Synopsis of Functions 


RGOO 


Resident Phase 


AA 


RPG 


Load subroutines, provide a commonly accessed 
communication area, read RPG control card, and 
print headings. 


RG02 


Enter File Specifications 
Phase 


BA 


BEGIN 


List and compress File Specification entries, build 
compression areas and Filename Table. 


RG04 


Enter Input Specifica- 
tions Phase 


BB 


BEGIN 


Process Input Specifications creating compression 
records, check 1 and D specification, and analyze 
errors . 


RG06 


Enter Calculation 
Specifications 


BC 


BEG 


Read, list, and compress Calculation Specifica- 
tions. 


RG08 


Enter Output-Format 
Specifications Phase 


BD 


RPG 


Read, list, and compress Output-Format Specifi- 
cations and determine whether it defines a record 
type or a field type. 


RG10 


Assign Indicators Phase 


CA 


BEGIN 


Build an indicator table, replace the indicators 
with addresses, place PUT OB in RGOO, create 
OBEND and place it in RGOO. 


RG12 


Assign Field Names 
Phase 


CB 


BEGIN 


Build table of field names, and replace a field in 
compression with its corresponding address. 


RG14 


Assign Literals Phase 


CC 


BEGIN 


Assign addresses to literals and build edit words 
from edit codes. 


RG16 


Extended Diagnostics 
1 Phase 


DA 


START 


Build tables (TENT, ERTAB, and NOTAB), dis- 
tinguish record type from field type Input Specifi- 
cations, and pass on field lengths to the Assemble 
phases . 


RG17 


Extended Diagnostics 
2 Phase 


DB 


BEGIN 


Update table address, check field entries, print 
error notes, put out control level hold areas. 


RG19, 
20, 21 


Diagnostic Message 
Phases (1, 2, and 3) 


DC 


STARt 


Diagnose error bits and print error messages. 


RG22 


Assemble 1 I/O Phase 


EA 


BEGIN 


Build I/O Table from Filename Table. 
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Module 
Name 


Generic Name 


Chart ID 


Entry Point 


Synopsis of Functions 


RG24 


Assemble 2 I/O Phase 


EB 


BEG 


Produce object code for l/O requests of non-disk 
files. 


RG26 


Assemble 3 I/O Phase 


EC 


BEGIN 


Produce object code for I/O requests of sequential 
disk files and Direct access disk files. 


RG28 


Assemble 4 I/O Phase 


ED 


RPG 


Put out object code for indexed-sequential disk 
files. 


RG32 


Assemble Table Phase 


FA 


AOOOO 


Put out object code to load and dump tables. 


RG34 


Assemble Chain and RA 
File Phase 


FB 


BEGCl 


Process compression and generate object code. 


RG36 


Assemble Input Fields 
Phase 


FC 


BEG 


Assemble field type Input Specifications. 


RG38 


Assemble Control Levels 
Phase 


FD 


BEG38 


Generate control level object code and sequence 
check routine. 


RG40 


Assemble Multi-Files 
Phase 


FE 


BEG49 


Generate Matching Field routines. 


RG42 


Assemble Get Phase 


FF 


BEG50 


Build file table of routine addresses. 


RG44 


Assemble Calculation 
1 Phase 


FG 


BEG 


Assemble LOKUP operations and a chain sub- 
routine. 


RG46 


Assemble Calculation 
2 Phase 


FH 


BEG 


Generate object code and linkage. 


RG52 


Assemble Output Fields 


Fl 


RPG 


Generate object code routine placing output 
fields in desired format. 


RG54 


Assemble Put Phase 


FJ 


RPG 


Generate object code to put out records and pro- 
duce table of addresses. 


RG58 


Assemble Linkage Phase 


FK 


BEGIN 


Generate master driver, branches to routines, and 
linkage. 


RG60 


Terminate Compilation 
Phase 


FL 


RPG 


Update WS cartridges, print end of compilation 
message . 
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CONTROL BLOCKS AND TABLES 



This section describes tables and data 
areas in the RPG compiler that are used 
outside the phase which created them. (See 
Table 5, for more information.) Descrip- 
tions of the following are included: 

• Filename Table 

• TENT Table. 

• Input-Output Table . 

• Control Level Address Table. 

• Overflow Table. 

• FILEl Table. 

• Communication Area. 

Filename Table 

The Filename Table can contain as many as 
ten entries, each of which is four words 
long. If the number of entries exceeds 
10 (overflows) , the Enter File Specifica- 
tion phase (RG02), which builds this ta- 
ble, treats the additional entries as 
comments and prints an error. 

Before an entry is placed in the table, 
the table is searched to determine if the 
entry is already present. If the entry 
is not in the table, it is added and the 
reference indicator is created as a blank. 
If the entry is in the table, the refer- 
ence indicator is changed to M to indicate 
a multi-defined file and a message is 
printed out. Each entry consists of four 
words in the following format: 



'*File Type 



Bit 


Value 


Meaning 






1 


Not Index Sequential File 
Index Sequential File 


1 



1 


Input or Update File 
Output File 


2 



1 


ADD not needed on output for file 
ADD must be specified for file on output 


3 




1 


Not Disk 
Disk 


4 




1 


Extension Code 
Extension Code 


5 




1 


Not a Chained File 
Chained File 


6 




1 


Not an RA File 
RA File 


7 




1 


Not a Table File 
Table File 



TENT Table (TENT) 

The TENT table (built by RG16, and used 
by RG16 and RG17) can contain as many as 
ten entries. Each entry is four words 
long, in the following format: 



Word 


1 


2 


3 


4 


Bits 


0-15 


0-15 


0-7 


8- 15 


0-7 


8-15 




Filename 
(in namecode) 


Ref File 
Indie* Type** 


Sequence 
Number 



*Reference Indicator 
Blank - Unreferenced 

E - Referenced in Extension Specifications 

R - Referenced in Input Specifications 

O - Referenced in Output Specifications 
M - Multi-Defined Filename 



Word 


Bits 


Contents 


1 


0-15 


Internal Sequence Number 


2 


0-7 
8-15 


File Type (l-O-U-C, in EBCDIC) 
RG16 changes this entry to: 

a) 08, if 1403 printer is used, 

b) OA, if 1132 printer is used, 

c) OC, if console printer is used. 

File Designation (P-S-C-R-T, in EBCDIC) 


3 


0-15 


Record Length (in binary) 


4 


0-15 


Key Length (in binary) 
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Input/Output Table (lOTAB ) 



Control Level Address Table 



This table is built from file description 
entries, and is used in generating I/O 
routines. This table can contain as many 
as ten entries. The code entries are 
right-justif ied, in hexadecimal notation. 
Each entry is 7 words long, in the follow- 
ing format: 



The Control Level Address Table (built by 
RG17, for RG38) consists of nine one-word 
entries. Each entry contains the address 
of one of the nine control level fields. 
The format of these entries is: 



WORD 


CONTENTS 




CODE 


FILE TYPE 


1 


0010 


1403 Printer 




12 


1132 Printer 




14 


Console Printer 




20 


1442 Punch Output 




22 


1442 Reader/Punch Output 




24 


1442 Reader/Punch Combined 




26 


1442 Reader/Punch Input 




28 


2501 Reader Input 




40 


Sequential Update 




42 


Random Update 




46 


Sequential Output 




48 


ISAM LOAD 




4A 


ISAM ADD 




4C 


ISAM Sequential Update 




4E 


ISAM Random Update 


2 


Record Length (in binary) 


3 


Key Length (in binary) 


4-5 


Symbolic Filename (in namecode) 


6 


Overflow indicator, if printer; or number of 




sectors necessary, if ISAM LOAD file. 


7 (0-7) 


Mode of processing column 28 for FDS (R,L) 


7 (8-15) 


a) File length, if RA File 




b) Number of index entries per sector, 




if ISAM LOAD file (in binary) 



Word 


Contents 


1 


Address of 1st control level field 


2 


Address of 2nd control level field 


3 


Address of 3rd control level field 


4 


Address of 4th control level field 


5 


Address of 5th control level field 


6 


Address of 6th control level field 


7 


Address of 7th control level field 


8 


Address of 8th control level field 


9 


Address of 9th control level field 



Overflow Table (SEQOF) 

The Overflow Table (built by RG22, for 
RG5 4) contains two entries. Each entry 
is two words long, in the following for- 
mat: 



Note: A 01 is ORed into the Code entry if dual I/O is 
requested . 



Word 


Contents 


1 


Sequence number of the File Description 
Specification 


2 


Address of the Overflow indicator 

\ 
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Filel Table (FILEl) 

The Filel Table (built by RG22) may have 
from one to ten entries, depending upon 
the number of files. Each entry is three 
words long, in the following format: 



Word 


Bit 


Contents 


1 


0-15 


Address of I/O Routine 


2 


0-15 


Address of FILTAB-4 for this file 


3 


0-3 


Must be zero for Primary and Secondary 
files; otherwise, bits 0-7 are C, R, T, 
or O. 


4 


1 Primary File 
Secondary File 


5 


1 Ascending Matching Fields 
Descending Matching Fields 


6 


1 Sequence Check Required 

Sequence Check Not Required 


7 


1 EOF for this File does not count in 

EOJ 
EOF for this File Counts in EOJ 


8-14 


(Not used) 


15 


1 Open/Close routine required 
Open/Close routine not required 



Note: Word 1 is filled in by RG24, RG26, or RG28; 
word 2 is filled in by RG42; word 3 is filled in 
by RG22. 
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This area is in the Resident phase, bet- 
ween the labels 'ZRDSP' and 'COEND'. It 
provides addresses and constants used by 
the compiler. Each field is one word 
long, except 'NOTES' which is 17 words 
long. The fields and their contents are: 



FIELD 



ZRDSP 



ZPRSP 



ZGTCM 



DISPLACEMENT 
Dec. Hex. 



+0 



+1 



00 



01 



+2 02 



ZPTCM 


+3 


03 


# 


ZPTOB 


+4 


04 


• 


ZPBUF 


+5 


05 




ZRBUF 


+6 


06 




ZPTER 


+7 


07 





CONTENTS 



• Address of read source statements 

• After Enter phases, it is used by DSF routine for the 
Patch Address 

If it contains a 0, there is no patch; if a non-zero, it 
contains the patch address. 

• Address of List Source Statements Routine . « 

• Address of Print Listing Routine (PRTSP) 

• Address of Get Compression Routine (GETCM) 

Address of Put Compression Routine (PUTCM) 

• Address of Put Ob|ect Code Routine 

Put out DSF Code 

Address of the Principal Print Buffer 

Address of the FILE1 Table 

Address of Table Area 

• Address of Principal Read Buffer 

After Enter Phases it contains the number of sectors per 
write of DSF code in working storage. 

Address of Error Note Routine (PRTER) 



USED BY 
Phases 



00, 02, 04, 06, 
08 

32, 36, 38, 40, 
42, 46, 52, 58 



00, 02, 04, 06, 

08 

04, 10, 12, 14, 

16, 17, 19, 58, 
60 

10, 12, 14, 16, 

17, 36, 38, 40, 
42, 44, 46, 52, 

54 

02, 04, 06, 08 

10, 12, 24, 26, 
28, 38, 42, 52, 
54, 58 

14, 32, 34, 38, 
40, 42, 44, 46 

02, 04, 06, 08, 
10, 12, 14, 16, 
17, 19, 58, 60 
22, 24, 26, 28, 
32, 34, 42, 58, 
54 

00, 02, 04, 06, 
08 



00, 02, 04, 06, 
08, 10, 17, 14, 
16, 19, 12 
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FIELD 



ZCBF2 



ZNTCM 



ZACNT 



ZTBAD 



ZPHCL 



ZCALS 



ZBLIN 



ZBLCA 



DISPLACEMENT 
Dec. Hex. 



CONTENTS 



ZOBUF +8 08 

ZOEND +9 09 

ZCBUF +10 OA 



+11 OB 



+12 OC 



+13 OD 



+14 



+19 



+20 



+21 



+22 



OE 



ZSEQI 


+15 


OF 


ZSEQC 


+16 


10 


ZSEQO 


+17 


11 


ZSEQL 


+18 


12 



13 



14 



15 



16 



• Address 

• Address 

• Address 

• Address 

• Address 

• Address 

• Address 

• Address 

• Address 

• Address 

• Address 



of Object Code Buffer 

of End of Object Code Buffer +1 

File Description Compression . . 

of Compression Buffer 1 

of First Block of Compression . . 



of Compression Buffer 2 
of Compression Block . . 



of Next Buffer Word 

of Compression Area 

of Next Compression Word 

of Current Compression Specification 



• Address Counter 



• Object Code Location Counter 

• Last Object Code Address . . . 



• Address of RPG Option Word (Column 11 of RPG 
Control Card). 



• Sequence number of first Input Specification .... 

• Sequence number of first Calculation Specification 

• Sequence number of first Output Specification . . . 



• Sequence number of last Output Specification 

• Statement Sequence number 



• Address of Get Next Phase Routine (CALPH) 



• Literal Usage Switch 

• Indicator Word 

• Cai switch 

• Contains Switches set by RG06 and RG08. 

• Compression block number of first Input Specification 



• Compression block number of first Calculation 
Specification 



USED BY 
Phases 



PUTOB 



PUTOB 



32 






34, 38 






36, 42, 


58 




38 






04, 10, 


12, 


44 


02, 06, 


08 




46 






52, 54 






10, 12, 


22, 


26, 


28, 32, 


34, 


38, 


40, 42, 


52, 


54, 


58 






17, 24, 


36, 


44, 


46, 14 
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04, 10 



06, 17 






08, 17 






04 






02, 06, 


08 




02, 04, 


,06, 


10, 


12, 16, 


17, 


19, 


22, 24, 


26, 


28, 


32, 34, 


36, 


38, 


40, 42, 


44, 


46, 


52, 54, 


58 




14 






06, 08 






04, 12 






04, 10, 


34, 


36, 


38, 40, 


42 




06, 14, 


44, 


46 
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FIELD 



ZBLOT 



DISPLACEMENT 
Dec. Hex. 



CONTENTS 



USED BY 
Phases 



+23 



17 



• Compression block number of first Output Specification . 08, 14, 52, 54 



(The term "block" usually refers to a buffer which has been written on a disk. Block 1, which always remains in 
core, is the exception.) 



ZIPTR 


+24 


18 


ZLST 


+25 


19 


ZNOIN 


+26 


lA 



ZINAD 

ZCALA 
ZOUTA 

ZBLOC 

ZLSTB 

ZMILN 

ZM2LN 

ZM3LN 

ZM4LN 

ZM5LN 

ZM6LN 

ZM7LN 

ZM8LN 

ZM9LN 

ZCILN 



+27 



+28 IC 



+29 ID 



+30 IE 



+31 
+32 
+33 
+34 
+35 
+36 
+37 
+38 
+39 
+40 
+41 



IF 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



• Address of first Input Resulting Indicator 

• Address of last indicator. 

• Number of Input indicators 



10 



10, 58 



• Address of First Input Specification in a Compression 04, 10, 36, 38, 

block 40, 42 



• Address of first Calculation Specification 



• Address of first Output Specification in a Compression 
block 



Number of current compression block. 

Number of Last compression block. 

Length of Ml 

Length of M2 

Length of M3 

Length of M4 

Length of M5 

Length of M6 

Length of M7 

Length of M8 

Length of M9 

Length of CI 



06, 14, 17, 
46 



08, 14, 17, 52, 
54. 



04, 06, 08, 10, 
12, 14, 17, 36, 
38, 42, 44, 46, 
52, 54 



16, 40, 42 

16 

16 

16 

16 

16 

16 

16, 54, 58 

16, 54, 58 

16, 17 
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FIELD 


DISPLAC 


:ement 




Dec. 


Hex. 


ZC2LN 


+42 


2A 


ZC3LN 


+43 


2B 


ZLILN 


+44 


2C 


ZL2LN 


+45 


2D 


ZL3LN 


+46 


2E 


ZL4LN 


+47 


2F 


ZL5LN 


+48 


30 


ZL6LN 


+49 


31 


ZL7LN 


+50 


32 


ZL8LN 


+51 


33 


ZL9LN 


+52 


34 


ZSTRl 


+53 


35 


ASTR2 


+54 


36 


ZINVR 


+55 


37 


BEGWS 


+56 


38 


ZFLNM 


+57 


39 


ZALTS 


+58 


3A 


BEGOB 


+59 


3B 



CONTENTS 



ZNEWH 



ZERCD 



+60 



+61 



3C 



3D 



Length of C2 
Length of C3 



Length of LI (The addresses of each of the control level 
indicator fields are found at address 38D HEX.) 



Length of L2 

Length of L3 

Length of L4 

Length of L5 

Length of L6 

Length of L7 

Length of L8 

Length of L9 

Sterling Input Option 

Sterling Output Option 

RPG Inverted Print Option 

Address of disk working storage 

Address of Filename Table 

RPG Alternate Collating Sequence Option 



Beginning of DSF program 

Address of Working storage of first block of DSF code 
written on disk 



Location counter switch 

New label switch for DSF routine 
Address of New Heading needed . 



• Error codes for Wrap-up phase 

- Normal Compilation 

1 - Working Storage Exceeded 

2 - Serious Compilation Error 
4 - Diagnostic run error 

• Completion Code . 



USED BY 


Phases 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17 




16, 


17, 


38 


04, 


36 




52 






06, 


14 
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02, 


06, 


10, 22 


40 






00, 


60 




00, 


60 




24 






10, 


40, 


52 


32 







00, 19 



60 



NOTES: 



62-78 (DEC) 
3E-4E (HEX) 



The contents of this area change after RG22 is given control . 
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Each time a phase prior to the Error Mes- 
sage Phase (RG 19, 20, 21) detects an error, 
it orders the Resident phase to print the 
note number identifying the error. At this 
time a bit is set in the error note area, 
NOTES. This area is a block of 17 words 
(272 bits) . Each bit in the block is a 
switch associated with one of the 272 pos- 
sible error notes. Bit of word repre- 
sents note 15, Bit 15 of word represents 
note 0, etc., as follows: 





Bits Position 





1 


2 


3 


4 


5 


6 7 8 9 10 11 12 13 14 


15 




+0 


15 


14 


13 


12 


11 


10 


987654321 







+1 


31 


30 


29 


28 


27 


26 


25 24 23 22 21 20 19 18 17 


16 




+2 


47 














32 




+3 


63 


















+4 


79 


















+5 


95 


















-t^ 


111 
















Displace- 
ment from 
NOTES 


+7 

4-8 

+9 

+10 

+11 

+12 

+13 

+14 

+15 


127 
143 
159 
175 
191 
207 
223 
239 
255 












ERROR NOTE IDENTIFIERS INDICATORS 
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If no bits are set, phase RG22 is loaded. 
If bits are set in the NOTE area, each 
bit set will be tested and appropriate 
error messages printed. 



ZBLCT 



COEND 



Phases RG24-RG58 use the 17 word NOTES area to save addresses, as follows: 

NOTES +0 - address of Table Dump routine 

NOTES +1 - address of Detail lines 

NOTES +2 - address of Detail Lines Table 

NOTES +3 - address of Total Lines 

NOTES +4 - address of Total Lines Table 

NOTES +5 - (Not Used) 

NOTES +6 - address of return address for Except lines 

NOTES +7 - address of Detail Calcs 

NOTES +8 - address of Total Calcs 

NOTES +9 - address of Chain Routine 

NOTES+10 - (Not Used) 

NOTES+1 1 - (Not Used) 

NOTES+12 - address of Record Address routine 

NOTES+1 3 - address of Table Load routine 

NOTES+14 - If a Record Address File, the address of the "To File" name 

NOTES+1 5 - address of Control Field routine 

NOTES+16 - address of the Low Field Control Block (LFDAD—used by RG40) 

+79 X '4F' • Address of the Wrap-up routine in RGIO, which is linked to from RG60; when 

control returns to RG60, it contains the Disk Block Count. 

• This label identified the end of the COMAREA. 
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DIAGNOSTIC AIDS 



This section contains two tables designed 
as serviceability aids for maintaining or 
modifying the 1130 RPG Compiler program: 
an External Reference Table and a Table 
of Control Block and Table Usage. 



EXTERNAL REFERENCE TABLE 

This table Summarizes external references 
for the phases of the 1130 RPG compiler. 
In this publication, an external reference 
is a linkage from the calling (or linking) 
phase to another common routine, which re- 
turns control to the next instruction fol- 
lowing the linkage. (Note that the called 
phase may have external references of its 
own.) A situation in which the called 
routine does not returh control to the 
calling phase is not considered an exter- 
nal reference. 



The vertical entries are divided into 
three categories: 



1* Routines Referenced. 

2. Constants and addresses defined in the 
Monitor Communication area (COMMA) . 

3. Constants and addresses defined in the 
Resident Phase Communication Area 
(COMAREA) . 



The vertical entries are listed alphabeti- 
cally; the horizontal entries (module and 
routine names) are listed numerically. 
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MODULE 


R 
G 






R 
G 

2 


R 
G 

4 


R 
G 

6 


R 
G 

8 


R 
G 
1 



R 
G 
1 
2 


R 
G 
1 

4 


R 
G 
1 
6 


R 
G 
1 

7 


R 
G 

1 
9 


R 
G 
2 
2 


R 
G 
2 

4 


R 
G 
2 
6 


R 
G 
2 
8 


R 
G 
3 
2 


R 
G 
3 

4 


R 
G 
3 
6 


R 
G 
3 
8 


R 
G 
4 



R 
G 
4 
2 


R 
G 
4 
4 


R 
G 
4 
6 


R 
G 
5 
2 


R 
G 
5 

4 


R 
G 
5 
8 


R 
G 
6 



ROUTINE 




P 

R 
T 
B 
R 


C 
A 
L 
P 
H 


P 
U 
T 
C 
M 


R 
D 
S 
P 
C 


G 
E 
T 
C 

M 


P 
R 
T 
S 
P 












O 

B 

E 

N 

D 


P 
U 
T 
O 
B 












































R 

O 

U 

T 

1 

N 

E 

S 

R 
E 
F 
E 
R 
E 
N 
C 
E 
D 


CALPH 


X 








X 






X 


X 


X 




X 






X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




DZOOO 


X 




X 


X 




X 
















X 










































X 


GETCM 












X 






X 






X 






X 


X 


X 


X 
















X 


X 


X 


X 


X 


X 


X 


X 






OBEND 






































































X 


PRTER 


X 














X 


X 


X 


X 


X 










X 


X 




































PRTLN 


X 








X 




X 














X 








































X 


X 


PRTSP 


X 


X 












X 


X 


X 


X 


X 






X 


X 


X 


X 


X 
































X 










































































PUTCM 










X 






X 


X 


X 


X 


















































PUTOB 
























X 






X 


X 




X 






X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 




RDSPC 


X 














X 


X 


X 


X 


















































$DBSY 


X 


























X 










































X 


$EXIT 


X 








X 




























































X 


C 
O 

M 
M 
A 


$CORE 


X 






































































$CTSW 


X 






































































$FPAD 


X 




































































X 


$IBSY 


X 






































































$IBT4 


X 






































































$KCSW 


X 






































































$LAST 


X 






































































$NDUP 


X 




































































X 


$NEXQ 


X 




































































X 


$PBSY 


X 






































































$PHSE* 


* 




































































* 


$WSDR 


X 




































































X 



* $PHSE IS used by every phase 
Table 4. External Reference Table (Part 1 of 2) 
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MODULE 


R 
G 






R 
G 

2 


R 
G 


4 


R 
G 

6 


R 
G 

8 


R 
G 

1 





R 
G 

1 
2 


R 
G 

1 
4 


R 
G 
1 
6 


R 
G 
1 

7 


R 
G 
1 
9 


R 
G 
2 
2 


R 
G 
2 
4 


R 
G 
2 
6 


R 
G 
2 
8 


R 
G 
3 
2 


R 
G 
3 
4 


R 
G 
3 
6 


R 
G 
3 
8 


R 
G 
4 



R 
G 
4 
2 


R 
G 
4 
4 


R 
G 
4 
6 


R 
G 
5 
2 


R 
G 

5 
4 


R 
G 
5 
8 


R 
G 
6 



ROUTINE 




P 
R 

T 
E 
R 


C 
A 
L 
P 
H 


P 
U 

T 
C 
M 


R 
D 
S 
P 
C 


G 
E 
T 
C 

M 


P 

R 
T 
S 
P 












o 

B 
E 
N 
D 


P 
U 
T 
O 
B 












































C 

O 

M 

A 

R 

E 

A 


BEGOB 






































































X 


BEGWS 






































































X 


LFDAD 
























































X 
















NOTES 






































X 












X 




X 














X 




ZACNT 
























X 




X 


X 


X 










X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


ZALTS 








































" 
















X 
















ZBLCA 
































X 




























X 


X 










ZBLCT 






































































X 


ZBLIN 


















X 






X 




























X 


X 


X 


X 














ZBLOC 


















X 




X 


X 






X 


X 




















X 


X 




X 


X 


X 


X 


X 






ZBLOT 






















X 










X 
































X 


X 






ZCALA 




















X 












X 




























X 


X 










ZCALS 


















X 


X 


X 








X 


X 








































ZCBF2 




















































X 


X 




X 










X 




ZCBUF 








































X 








X 


X 






















ZERCD 






































X 
































X 


ZFLNM 
















X 




X 




















X 
































ZINAD 


















X 






X 




























X 


X 


X 


X 














ZINVR 




















X 












X 








































ZIPTR 
























X 












































X 




ZLST 
























X 
















































ZL9NL 






















































X 


















ZMILN 
























































X 


X 














ZM8LN 


































































X 






ZM9LN 
























































X 










X 






ZNEWH 




























X 














X 






X 








X 
















ZNTCM 
















X 


X 


X 


X 


X 






X 






























X 


X 


X 


X 






ZNOIN 
























X 












































X 




ZOUTA 






















X 










X 
































X 


X 






ZPBUF 
















X 


X 


X 


X 


X 






X 


X 






X 


X 


X 


X 


X 


X 










X 








X 


X 


X 


ZRBUF 
















X 


X 




X 


















































ZRDSP 
















X 












X 
























X 


X 


X 


X 




X 










ZSEQC 


















X 


X 




















































ZSEQI 


















X 






X 
















































ZSEQL 
















X 


X 


X 


X 


















































ZSEQO 


















X 


X 


X 


















































ZSTR1 


















X 


































X 




















ZSTR2 
































































X 








ZTBAD 






















X 
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CONTROL BLOCK AND TABLE USAGE 

This table contains a list of control 
blocks and tables created by the 1130 RPG 
compiler. It also names the routines that 
create and modify them. 



CONTROL BLOCK 


BUILT 


MODIFIED 


OR TABLE 


BY: 


BY: 


Filename Table (FLENM) 


RG02 


RG02 
RG04 
RG06 
RG08 
RG22 
RG58 


Tent Table aENT) 


RG16 


RG16 
RG17 


Input/Output Table (lOTAB) 


RG22 


RG22 
RG24 
RG26 
RG34 


Control Level Address Table 


RG17 


RG38 


Overflow Table (SOSOF) 


RG22 


RG54 


FILE! Table (ZPBUF) 


RG22 


RG58 




RG24 


RG42 




RG26 


RG40 




RG28 




Communications Area 


This are 


a is explained 


(COMAREA) 


in detai 


1 in Table 3, 




because 


it is accessed 




by ever 


y phase. 



Table 5. Control Blocks and Tables Created by the 1130 RPG Compiler 
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COMPRESSION FORMATS 



This section is composed of tables illus- 
trating hov information from the various 
specification sheets used by RPG is put 
into compressed format. By eliminating 
unnecessary information such as blanks r 
RPG can reduce I/O operations, save stor- 
age space, and still retain important in- 
formation in main storage via compression. 
The presence or absence of certain com- 
pression information is indicated in the 
«c-word. For ex€unple, in a calculation 
compression, if there is no control level 
specified, bit of the ^- word will be off 
and the position of any information follow- 
ing it will be decremented by its length 
(in this case 1 word) . 



The following compression fonnats are des- 
cribed in this section: 

• File Description 

• Extension 

Record Address Files 

- Chain Files 

- Table Entries 



• Input 

Record Type 
Field Type 

• Calculation 

• Output-Format 

Record Type 
- Field Type 

In each of the compression format tables, 
a character string is used to illustrate 
the grouping of information in that for- 
mat. The meaning of the field of informa- 
tion represented by each character in the 
string is then explained. The length and 
location of each field within the compres- 
sion is shown by entries in the "Word" and 
"Bits" columns to the left of the char- 
acter. References to columns identify 
which column of the corresponding specifi- 
cation sheet would contain the specified 
entry. At the end of each compression 
description, the minimum and maximum 
lengths of the compression are noted by 
the "Minimum" and "Maximum" entries. 
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FCo<:NTDBLCRPOI 


Word 


Bits 




1 


0-7 
8-15 


F Type of Specification (EBCDIC F) 

C Length of compressed specification (in binary) 


2 


0-15 


c< c<- word 

Bit Value Description 

1 No E in column 17 
1 E in column 17 

2 Ascending sequence (column 18) ascending sequence is 
1 Descending sequence assumed if no entry is made 

3 No extension code 
1 Extension code 

4 ISAM add not specified 
1 ISAM add specified 

5 Not ISAM load 
1 ISAM load 

6 or 1 entered for bit 2, above 
1 No entry for bit 2 


3 


0-7 
8-15 


(Not used) 
N Sequence Number of this File Description Specification 


4 


0-7 
8-15 


T File Type (column 15 in EBCDIC) 

D File Designation (column 16 in EBCDIC) 


5 


0-15 


B (Not used) 


6 


0-15 


L Record Length (columns 24-27) 


7 


0-15 


C Device 

Hex Code Device 

0002 READ 42 
04 READ 01 
06 PUNCH 42 
08 PRINT 03 
OA PRINTER 
OC CONSOLE 
OE DISK 


8 


0-15 


R a) Length of RA File Field (columns 29-30) 

b) Length of Key Field (columns 29-30) 

c) Overflow Indicator (columns 33-34 in EBCDIC) 


9 


0-7 
8-15 


P Mode of Processing (column 28 in EBCDIC) 

Type of File Organization (column 32 in EBCDIC) 


10-12 


0-15 


1 For ISAM load, maximum file size, left-justified in EBCDIC (columns 47-51) 



Note: Entries in words 8-12 are optional . If an optional word is required, all prior optional words (required or not) must be 
included in the compression specification and unused words must be padded with a fill character. Minimum - 7 words; 
maximum - 12 words. 

Table 6. File Description Compression 
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RA File Entries 

RCFT 


Word 


Bits 




1 


0-7 
8-15 


R Identification Code (EBCDIC R) 
C Length of Compressed Specification 
(in binary) 


2 


0-7 
8-15 


F From Filename (Sequence Number 
of File Description Entry) 

T To Filename (Sequence Number of 
File Description Entry) 



Note: Word 2 comes from the Filename Table. Minimum 
- 2 words; Maximum - 2 words. 



Chain File 

ECNSF 


Word 


Bits 




1 


0-7 
8-15 


E Identification Code (EBCDIC E) 
C Length of Compressed Specification 
(in binary) 


2 


0-15 


N Chaining field number (columns 
9-10) 


3 


0-15 


S Record Sequence of the chaining 
file (columns 7-8) 


4 


0-7 
8-15 


F From Filename (Sequence number of 

File Description Entry) 
T To Filename 



Table Entries 

TCFOQNBE LPDAocU VWXYZ 


Word 


Bits 




1 


0-7 
8-15 


T Identification Code (EBCDIC T) 
C Length of Compressed Specification 
(in binary) 


2 


0-7 
8-15 


F From Filename (Sequence Number of 

File Description Entry) 
O To Filename (Sequence Number of 

File Description Entry), blank if 

not specified 


3-5 


0-15 


Q Blanks, to later contain generated 
machine address 


6-7 


0-15 


N Table name (columns 30-32) 


8 


0-15 


B Number of entries per record (col- 
umns 33-35) 


9 


0-15 


E Number of entries per table (col- 
umns 36-39) 


10 


0-15 


L Length per entry (columns 40-42) 


11 


0-7 
8-15 


P Pack indicator (column 43) 
D Numeric indicator (column 44) 


12 


0-7 
8-15 


A Sequence indicator (column 45) 
OC Second table indicator; 00 if no 
second table, FO if second table 


13-15 


0-15 


U Blanks; same entry as words 3-5 


16-17 


0-15 


V Table name same entry as words 6 
and 7 (columns 49-51) 


18 


0-15 


W Number of entries per record; same 
entry as word 10 (columns 52-54) 


19 


0-7 
8-15 


X Pack Indicator; same entry as word 

1 1 , bits 0-7 (column 55) 
Y Numeric Indicator; same as word 11, 

bits 8-15 (column 56) 


20 


0-7 
8-15 


Z Sequence Indicator; same as word 
12, bits 0-7 (column 57) 
(Not used) 



Note: Word 3 comes from the Filename Table. Minimum 
- 4 words; Maximum - 4 words . 



Note: Words 13-20 are optional. Word 2 (bits 0-15) 

comes from Filename Table. Minimum - 12 words, 
whenoc is set at 00; Maximum - 20 words, when 
oC is set at FO. 



Table 7. Extension Compression 
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Record Type 

IAo<FQRSPTCAVWXYZ 


Word 


Bits 




1 


0-7 
8-15 


1 Identification Code (EBCDIC 1) 
A Length of Compressed Specification (in binary) 


2 


0-15 


o< o<- word 

Bit Value Meaning 

No stacker select 
1 Stacker select 

1 -2 00 OR type record 

01 AND type record 

10 Alphabetic Sequence 

11 Numeric Sequence Check 

3 Numeric Mandatory Record 
1 Numeric Optional Record 

4 Numeric 1 or more records 
1 Numeric 1 only record 

5 Filename not specified 
1 Filename specified 

6-7 00 No record codes 
01 1 record code 

10 2 record codes 

1 1 3 record codes 
8-15 (Not used) 


3 


0-15 


F Sequence number of File Description Specification/ from Filename Table 


4 


0-15 


Q Sequence of Input Record Type (columns 15-16) 


5 


0-15 


R Resulting Indicator code (columns 19-20) 


6 


0-15 


S Stacker Select (column 42) 


7 


0-15 


P Location of character in record format (columns 21-24) 


8 


0-7 
8-15 


T Type of test 

Bit Value Meaning 

1 Negative character test, otherwise positive 

1 1 Character test, otherwise not 

2 1 Zone test, otherwise not 

3 1 Digit test, otherwise not 
4-7 

C Character in test (column 27) 


9 


0-15 


A Location of character In record format (columns 28-31) 


10 


0-7 
8-15 


V Type of test; same as word 8 (columns 32-33) 
W Character in test (column 34) 



Table 8, 
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Input Compression (Part 1 of 3) 



Word 


Bits 




11 


0-15 


X Location of character in record format (columns 35-38) 


12 


0-7 
8-15 


Y Type of test; same as word 8 (columns 39-40) 
Z Character in test (column 41) 



Note: Words 6-12 are optional . Minimum - 5 words; maximum - 12 words. 



Table 8. Input Compression (Part 2 of 3) 
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Field Type 

DAcXFXPANLM/CRPIZS 


Word 


Bits 




1 


0-7 
8-15 


D Identification Code (EBCDIC D) 

A Length of Compressed Specification (in binary) 


2 


0-15 


o< C<- word 

Bit Value Meaning 

No CTL level specified 
1 CTL level specified 

1 No matching field specified 
1 Matching field specified 

2 No field record relation specified 
1 Field record relation specified 

3 Plus not used 
1 Plus used 

4 Minus not used 
1 Minus used 

5 Zero not used 
1 Zero used 

6 No sterling 
1 Sterling 

7 No chaining 
1 Chaining 

8-15 (Not used) 


3 


0-15 


F From position in binary (columns 44-47) 


4 


0-15 


X Length of field in binary (columns 44-51) 


5 


0-7 
8-15 


P Packed Indicator (column 43) 

A Decimal position/lDlank for Alpha fields (column 52) 


6-8 


0-15 


N Field name (columns 53-58) 


9 


0-7 
8-15 


L Control level (column 60 in EBCDIC) 

M Matching value (column 62, or 

C Chaining value (column 62 in EBCDIC) 


10 


0-15 


R Field record relation indicator (columns 63-64) 


11 


0-15 


P Plus field indicator (columns 65-66) 


12 


0-15 


1 Minus field indicator (columns 67-68) 


13 


0-15 


Z Zero field indicator (columns 69-70) 


14-15 


0-15 


S Sterling field (columns 71-74) 



Note: Words 9-15 are optional. Minimum ~ 8 words; maximum - 15 words, 



Table 8. Input Compression (Part 3 of 3) 
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CAo<Bll^l2FOTRLDHSMZ 


Word 


Bits 




1 


0-7 
8-15 


C Identification Code (EBCDIC C) 

A Length of this compressed specification 


2 


0-15 


o< o< - word 

Bit Value Meaning 

No control level 
1 Control level 

1 No indicators 
1 Indicators 

2 No Factor 1 
1 Factor 1 

3 Factor 1 is a Field Name 

1 Factor 1 is a literal (reserve space in Literal Compression format) 

4 Factor 2 is a Field Name 

1 Factor 2 is a literal (reserve space in Literal Compression format) 

5 No Plus indicator 
1 Plus indicator 

6 No Minus indicator 
1 Minus indicator 

7 No Zero indicator 
1 Zero indicator 

8-15 (Not used) 


3 


0-15 


B Control level 


4-5 


0-15 


1 Indicator (columns 7-8) 


6-7 


0-15 


L Indicator (columns 9-11) 


8-9 


0-15 


L Indicator (columns 12-14) 


10-15 


0-15 


F Factor 1 (columns 18-24) (If Field Name, 3 words long; if literal, 6 words) 


16 


0-15 


O Operation Code* (columns 28-32) 


17-22 


0-15 


T Factor 2 (columns 33-42) (If Field Name, 3 words long; if literal, 6 words) 


23-25 


0-15 


R Result Field 


26 


0-15 


L Length of field in binary format 


27 


0-7 
8-15 


D Decimal positions 

H Half-adjust — blank if none 


28 


0-15 


S Plus-High indicator 


29 


0-15 


M Minus-Low indicator 


30 


0-15 


Z Zero-Equal indicator 



Note: Minimum - 11 words; maximum - 30 words. 

Table 9. Calculation Compression (Part 1 of 2) 
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^Operation Gxles 



CODE 


ENTKV (IN HEXADECIMAL) 




Bits 0-7 


Bin 8-15 


ADD 


Fl 


FA 


BEGSR 


FO 


02 


CHAIN 


FO 


00 


COMP 


F4 


04 


DIV 


F4 


FD 


ENDSR 


FO 


03 


EXCPT 


FO 


01 


EXIT 


F3 


FE 


EXSR 


FO 


04 


GOTO 


F3 


01 


tOKUP 


F5 


01 


MHHZO 


F6 


06 


MHLZO 


F6 


05 


MLHZO 


F6 


04 


MLLZO 


F6 


03 


MOVE 


F6 


01 


MOVEL 


F6 


02 


MULT 


F4 


FC 


MVR 


F4 


03 


RLABL 


F9 


FF 


SETOF 


F2 


00 


SETON 


F2 


FO 


SUB 


Fl 


FB 


TAG 


F7 


01 


TESTZ 


F5 


02 


Z-ADD 


Fl 


03 


Z-SUB 


Fl 


04 



Table 9. Calculation Compression (Part 2 of 2) 
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Record Tyit 








OAtt^NFSBADKII^I^ 


mtsL 


Bits 




1 


0-7 


O identification Code (EBCDIC O) 




8-15 


M Length of this compressed specification 


2 


0-15 


#: oC-word 

Bit Value Meaning 

1 No heading or detail tine 
1 Heading or detail line 

2 No except tines 
1 Except tines 

3 No total tines 
1 Totol lines 

4 No conditioned overflow 
1 Conditioned overflow 

5-6 00 Filename present 

01 OR t/pe* 

10 AND type** 
7-8 00 No resulting indicators 

01 1 resulting indicator 

10 2 resulting indicators 

11 3 resulting indicators 

9 No space 
1 Space 

10 No skip before 
1 Skip before 

11 No sicip after 
1 Skip after 

12-15 (Not used) 


3 


0-15 


N Internal Sequence Number (in binary) 


4 


0-7 


F Sequence number from File Description Specifications 




8-15 


S Stacker Select (blonk, 1, or 2) 


5 


0-7 


B Space Before ^ 




8-15 


A Space After 


6 


0-15 


D Skip Before 


7 


0-15 


K Skip After 


8-9 


0-15 


t Resulting Indicator 


10-11 


0-15 


1. Resulting Indicator 


12-13 


0-15 


L Resulting Indicator 



Note: Words 5-13 ore optk>nal. Minimum - 4 words; maximum - 13 words, 



Table 10. Output-Format Compression (Part 1 of 4) 
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*OR Type 






OAoZNSBADKII^l2 


Note that F Is omitted 




Minimum - 3 words 




Maximum - 12 words 




**AND Type 






OA<^N\\^\^ 


Minimum - 3 words 




Maximum - 9 words 





Table 10. Output-Format Compression (Part 2 of 4) 
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Field Typ 


e 




MAocTEFII ^ I2SNCLXYZBP 




Word 


Bits 




1 


0-7 


M 


Identification Code (EBCDIC M) 






8-15 


A 


Length of this compressed specification (in binary) 




2 


0-15 


o^- 


oc- word 

Bit Value Meaning 

0-1 00 No output indicator 
01 1 output indicator 

10 2 output indicators 

1 1 3 output indicators 

2 No field name 
1 Field name 

3 Constant 

1 Edit word 

4 No special edit code 










1 Special edit code 

5 No blank after printing 
1 Blank after printing 

6 No packed output 
1 Packed output 

7 No sterling 
1 Sterling 

8 Not PAGE field 
1 PAGE field 

9-15 (Not used) 




3 


0-15 


T 


Internal sequence number 




4 


0-15 


E 


Rightmost position of field (in binary) 




5-7 


0-15 


F 


Field name 




8-9 


0-15 


1 Output Indicator 


10-11 


0-15 


•l 


Output Indicator 




12-13 


0-15 


•2 


Output Indicator 




14-15 




S 


Space allowed for literals and edit words; used by later 


phases 


16 


0-15 


N 


Length of literal or edit word 




17 


0-15 


C 


Fill character, if edit word 




18-29 


0-15 


L 


Literal* or edit word 




30 


0-7 


X 


Length of edit word (X word) (in binary) 






8-15 


Y 


Description of edit word 





Table, 10, Output-Format Compression (Part 3 of 4) 
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Word 


Bits 


Bit Value Meaning 

8 No asterisk protection or zero suppression In edit word 

1 Asterisk protection or zero suppression In edit word 
9-1 1 (Not used) 

12 No fixed $ 
1 Fixed $ 

13 No floating $ 
1 Floating $ 

14 No minus sign 
1 Minus sign 

15 No CR symbol 
1 CR 


31 


0-7 


Z If 0, no CR or Minus sign, otherwise displacement to CR/Mlnus sign 




8-15 


B Number of blanks In edit word 


32-33 


0-15 


P Sterling sign position 



Note: Minimum - 4 words; maximum - 33 words. 



*Literal Format 

LDBA 


Wprd 


Bits 




18 


0-15 


L Length of literal in binary (if negative, bit set to 1; if positive, bit set to 0) 


19 


0-15 


D Decimal length of literal; if alphameric, leave blank 


20-21 
22-29 


0-15 
0-15 


B Blanks 

A Literal, if alphameric 



Note: Minimum-Maximum - 12 words. 



Table 10. Output-Format Compression (Part 4 of 4) 
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PART TWO: 1130 RPG OBJECT PROGRAM 



This section describes the main routines 
of the RPG object program (those functions 
that are typical of every RPG object pro- 
gram) . 

The description begins with a generalized 
flowchart and narrative section, which 
illustrates the cycle of operations within 
the object program. 

Next/ the tables and work areas that con- 
tain information directly related to the 
flow of the object program are examined. 
This is followed by a description of each 
of the object program routines. Actual 
code from the program listings is used 
in many places , to clearly describe the 
functions of particular routines. 

A core storage allocation map is presented 
to show the locations of the object pro- 
gram routines during execution of the pro- 
gram. To aid in understanding these sepa- 
rate routines and their relationships to 



each other, a trace of an object program 
is presented next. 

Certain functions of the RPG object pro- 
gram, e.g., processing with an RA file, 
or processing by CI, C2 , or C3 type chain- 
ing, need more than a cursory explanation. 
These functions are described following 
the sample object program trace. 



The next section, Library Subroutines , 
describes each of the subroutines that may 
be called by an RPG object program. In 
each case, the narrative is accompanied by 
a flowchart which illustrates the logic of 
the routine. 

The last section contains a core storage 
dump of an RPG object program and instruc- 
tions which enable the reader to find 
where the RPG indicators, fields, literals, 
key routines, etc. , are located. 
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♦♦*+ HI ********* 

¥ * 

K STAHT * 
» * 

*+***♦*+*♦***** 



♦****B1 ********** 

* * 

* ♦ 
♦IHITIALIZftTION * 

* * 

* * 
***************** 



***+*C1 ********** 



* LOAD TABLES 



***************** 



**** 
f * 
» B3 * 
« * 

**** 



***B3**+******** 



**************** 



**«*Clt ********* 

* tBEHIHATE THE * 
>* PHOGEAM * 

* * 
*************** 



+**D1 *********** 

PROCESS HEADIHG* 
AND DETAIL 
* RECORDS * 

**************** 



+***D2 ********* 

► TEHMIHATE * 
!> PEOGSAH * 

► ♦ 
*************** 



t 



El *. 
.* < 

H1-H9 OH 



E2 *. 
.♦ WHAT *. 
YES .* OPERATOR *. 

* >*. ACTIOS IS .* 

*.TAKEH 7 .* 



.* 



.* HAS 
. OVERFLOW 
*.OCCDBEED 



***I)5 *********** 

* PROCESS * 
-> OVEEFLOH 
* RECORDS * 

**♦*♦***+***♦*** 



(■**fl *********** 



****^*********** 



«****G1 ********** 



***************** 



♦+***H1 ********** 



***************** 



**F2******* 



♦SET ON LR AND* 
-> *L05,H)O>GH L9 * 



*********** 



♦****E3 ********** 

* * 

* MOVE DATA * 

* FIELDS FROH * 

* IRPUT AREA * 

* * 
***************** 



**** 

* * 

* F3 *-> 

* * 
**** 

fb' 

*. 



T I N E 



♦**F4 *********** 



**************** 



*****F5 ********** 



***************** 



*****G3 ********** 



***************** 



***** J 'I ********** 



***************** 



Chart GA. RPG Object Program (Simple Flow) 
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THE RPG OBJECT PROGRAM CYCLE 

Each program generated by RPG uses the 
same general logic, and for each record to 
be processed, the program goes through the 
same general cycle of operations. To il- 
lustrate this concept, a generalized flow- 
chart of an RPG object program is shown in 
Chart GA. 

The following numbers correspond to the 
numbers on Figure 1. A program cycle be- 
gins with item 3 and continues through 
item 18. 

1. Initialization (opening files, etc.) 
is performed. 

2. Tables, if any are present, are loaded 
into core storage. 

3. Before the first record is read, the 
program prepares and writes any heading 
information to be put out on the first 
page. After the first record has been 
read, the program prepares and writes 
heading and detail records which are 
not conditioned on overflow. 

4&5. The halt indicators are tested. If 
any are on, the operator is notified 
and he may terminate or continue the 
job. 

6. An input record is read into core stor- 
age. 

7. If end-of-file occurs, the last record 
indicator (LR) is set on and all con- 
trol-level indicators (L1-L9) are set 
on. The program branches to step 10. 

8. Starting with line 1 of the Input 
Specifications sheets, and with the 
record just read, the program uses the 
record identification code to identify 
the record. When the identification 
code matches an entry on the Input 
Specifications sheet, the program turns 
on the resulting indicator that has 
been specified for the record. 

9. If a control-field break has occurred, 
all appropriate control-level indicat- 
ors are turned on. 

10. Next, all total calculations are per- 
formed. 

11. All total output records which are not 
conditioned on overflow are prepared 
and put out. 

12.&13. The program tests for the last re- 
cord indicator (LR) . If it is on, the 
program is terminated. 

14.&15. The program tests for an overflow 
condition. If overflow has occurred, 
total lines, heading lines, and detail 
lines (in that order) conditioned by 
overflow are printed. 

16.&17. Data fields are extracted from the 
input record I/O area and moved into 
the assigned field areas. If any field 
is designated as a CI, C2, or C3 chain- 
ing field, the internal CI, C2, or C3 



indicator is turned on and the chain- 
ing routine is given control. This 
routine retrieves the chained record. 
18. Any detail calculations are performed 
and processing continues with item 3. 



TABLES AND WORK AREAS 

Before beginning a discussion of the ob- 
ject program routines, it may be helpful 
if certain object program tables and work 
areas are explained. The tables contain 
information which is directly related to 
the flow of the object program and will be 
examined in detail. 

Function Address Table (FAT ) 

This 2 8 word table is generated for every 
RPG object program and contains the ad- 
dresses of various RPG routines (Table 11) . 
These addresses are compiled relative to 
location and are relocated by the Core 
Load Builder. 

File Input Tables (FITs ) 

These tables, one for each input file, are 
generated by RG42. Each table consists of 
four words of information for each record 
type within that file, plus a two word 
dummy entry at the end of the table . The 
four word entry contains identifying in- 
formation associated with the record type 
that caused it to be generated and the 
two word dummy entry contains the address 
of the error routine (first word) for 
undetermined record types and asterisks 
(last word) to signify the end of the 
table. 

Each record type would cause the following 
entry to be built (dummy entry is excluded) 



Word: 



Address of: INPR MFEXT CLEV INPF 



Wordl: This word contains the address of 
the INPR routine for the associated record 
type. The INPR routine performs a test on 
the characters of the input record to de- 
termine that the record is of the record 
type associated with this table entry. One 
INPR routine is generated for each input 
record type . 

Word2 ; . This word contains the address of 
the matching fields extraction routine 
(MFEXT) for this record type. MFEXT ex- 
tracts the matching fields and holds them 
for comparisons and further processing. 
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Word 



Label 



5 
6 

7 
8 
9 

10 

n 

12 
13 

14 
15 
16 
17 

18 
19 

20 
21 

22 

23 
24 
25 
26 
27 
28 



ADSRT 

TABOT 
HDAD 

HDTAB 

TAD 

TTAB 

DCALC 

TCALC 

CHANl 



RAFAD 



TABID 
CTLFD 

LOWFD 
CHSAV 

EAD 
RTE 

ETAB 

EN DAD 



Contents 



Starting address of the RPG object 
program . 

Address of the Table Output routine. 

Address of Heading and Detail lines 
routine. 

Address of Heading and Detail lines 
table (DTAB). 

Address of Total lines routine. 

Address of Total lines table (TOTAB) 

Address of Detail Calculations. 

Address of Total Calculations. 

Address of Chaining routine (for CI, 
C2, C3) 

Not used. 

Not used. 

Not used . 

Address of Record Address File 
routine. 

Not used. 

Not used. 

Address of Table Load routine. 

Address of Control Field Compare 
routine. 

Address of Low Field. 

Save area for Chaining routine 
address . 

Address of EXCPT lines routine. 

Return address in calculations after 
EXCPT lines are executed. 

Address of EXCPT lines table 
(EXTAB). 

Address of Close Files routine. 

Not used. 

Not used. 

Not used. 

Not used. 

Not used . 



Words ; This word contains the address of 
the control- level extraction routine (CLEV) 
for this record type if this record type 
has control-level fields specified. This 
routine extracts control- level fields from 

the I/O area and moves them to the control- 
level hold area so that they may be tested 
for a control-level break. 

If the associated record type has no con- 
trol levels, words contains the address 
of TCLNK, an entry point to the Fixed 
Driver (see Fixed Driver for further in- 
formation) . 

Word 4 : This word contains the address of 
the move input fields routine (INPF) for 
this record type. 

To illustrate the File Input Table, assume 
the Input Specifications of a source pro- 
gram to be as follows: 



Table 11. 



Contents of the Function Address 
Table 



86 



IBM 



Intirnailorwl ButlntwMKhlnM Corporation 

RPG INPUT SPECIFICATIONS 



Proorjm 



Punching 
Instruction 


Grapliic 
















Punch 

















Pagi 



12 76 76 77 78 7B 80 

Progrwn 
Idintidution 



Pi 



Programmer . 



7 8 9 10 11 12 13 14 



Record Identification Codes 



Field Location 



From 



To 



Field Name 



53 54 65 S6 S7 68 



Field 
Indicators 



Starling 

Sign 

Poiltlon 







^ 



RD 



M 



AA 



11 



BB 



^Z 



CA 



CS 



10 



U 



LP 



FLVX 



up 



The resulting File Input Table for record 
types 01 and 02 would contain the follow- 
ing: 



Word! 



Word2 



Word3 



Word4 



Entry! 


Address of 


Address of 


Address of 


Address of 




INPR rou- 


MFEXT 


CLEV rou- 


INPF rou- 




tine for 01 


routine for 


tine for 01 


tine for 01 




record 


01 record 


record 


record 




type 


type 


type 


type 


Entry2 


Address of 


Address of 


Address of 


Address of 




INPR rou- 


MFEXT 


TCLNK in 


INPF rou- 




tine for 02 


routine for 


the Fixed 


tine for 02 




record 


02 record 


Driver 


record 




type 


type 




type 


Dummy 


Address of 
error rou- 
tine for 
undeter- 
mined 
record 


/5C5C 






type 









Entryl ; These four words contain informa- 
tion associated with the record type iden- 
tified by resulting indicator 01. 

Wordl contains the address of the routine 
that tests the first position of an input 
record to see if it is an A (column 27) . 



Word2 points to the matching fields ex- 
traction routine for this record type . 
Since there are no fields designated by 
M1-M9 indicators, this routine will con- 
sist only of a branch instruction to con- 
tinue processing. 

Words points to the control- level extrac- 
tion routine that will move FLDl from the 
I/O area to the control-level hold area. 

Word 4 contains the address of the routine 
that will move FLDl and FLD2 from the I/O 
area to the field areas used for process- 
ing. 

Entry2 : These four words contain informa- 
tion similar to Entryl, but applicable to 
the record type associated with resulting 
indicator 02. Note that word3 for this 
record type contains the address of TCLNK 
because no control-level fields are speci- 
fied. 

Dummy ; This two-word entry contains the 
address of the error routine (wordl) for 
undetermined record types and always fol- 
lows the last record type entry in the 
table. Word2 consists of asterisks sig- 
nifying the end of this table. 

Output Tables 

The output tables used by the object pro- 
gram are generated "by RG54. A maximum of 
four tables will be generated; one (DTAB) 
for heading and detail lines, one (TOTAB) 
for total lines, one (OTAB) for overflow 
lines, and one (EXTAB) for EXCPT lines. 



Part Two: 1130 RPG Object Program 87 



DTAB 

This table consists of one table entry for 
each heading and/or detail line specified 
on the Output-Format Specifications sheet. 
Each table entry consists of three words. 

Wordl ; This word contains the address of 
the test output indicators routine. This 
routine tests the status of the indicators 
which condition the output line associated 
with this entry. 

Word 2 ; This word contains the address of 
the move output fields routine for this 
output line. This routine moves fields to 
be put out from the assigned fields area 
to the output buffer. 

Word 3 : This word contains the address of 
the Input/Output Driver (lOD) routine asso- 
ciated with the file of which this line 
will be put out. 

Note ; Further information on lODs is con- 
tained under Object Time Routines . 

The last entry in DTAB is a dximiny three- 
word entry. The first word of this entry 
contains the address of the heading and 
detail lines wrap-up routine; a routine 
that sets up linkage to get the next re- 
cord. Words 2 and 3 are not used. 

TOTAB 

This table consists of one table entry for 
each total line specified in the Output- 
Format Specifications sheet. Each table 
entry consists of three words containing 
the same information as the DTAB table en- 
tries. A dummy three-word entry is the 
last entry in TOTAB. Wordl of the dummy 
entry contains the address of the total 
lines wrap-up routine (a test for the oc- 
currence of overflow) . 

OTAB 

This table consists of one table entry for 
each total overflow line followed by one 
table entry for each detail overflow line. 
Each table entry consists of three words 
containing the same information as DTAB 
and TOTAB table entries. Again, the last 
table entry in OTAB is a three-word dxjmmy 
entry. Wordl of this dummy entry contains 
the address of the overflow lines wrap-up 
routine (provides linkage to move fields 
from the I/O area to the fields area) . 



EXTAB 

This table consists of one table entry for 
each EXCPT line specified on the Output- 
Format Specifications sheet. Each table 
entry consists of three words containing 
the same information as the DTAB, TOTAB, 
and OTAB table entries. Again, the last 
table entry in EXTAB is a three-word dum- 
my entry. Wordl of this dummy entry con- 
tains the address of the EXCPT lines wrap- 
up routine (obtains return address and 
branches to calculations) . 

To illustrate these tables, the following 
diagrams contain one entry each. 



DTAB 



Heading or 
Detail Line 
entry 



Dummy 
entry 



TOTAB 



Total Line 
entry 



Dummy 
entry 



Wordl 



Word2 



Word! 



Word2 



Words 



Address of 


Address of 


Address of 


the Test 


the Move 


the Input/ 


Output In- 


Output 


Output 


dicators 


Fields rou- 


Driver 


routine 


tine 


(lOD) 


Address of 


Not used 


Not used 


B0020 in the 






Central Out- 






put Driver 






(COD) 







Words 



Address of 


Address of 


Address of 


the Test 


the Move 


the Input/ 


Output In- 


Output 


Output 


dicators 


Fields rou- 


Driver 


routine 


tine 


(lOD) 


Address of 


Not used 


Not used 


B0025 in the 






Central Out- 






put Driver 






(COD) 







OTAB 



Total or 
Detail 
Overflow 
Line entry 

Dummy 
entry 



Word! 



Word2 



Word3 



Address of 


Address of 


Address of 


the Test 


the Move 


the Input/ 


Output In- 


Output 


Output 


dicators 


Fields rou- 


Driver 


routine 


tine 


(lOD) 


Address of 


Not used 


Not used 


B0030 in the 






Central Out- 






put Driver 






(COD) 







Wordl 



Word2 



Words 



EXTAB 



EXCPT Line 
entry 



Dummy 
entry 



Low Field y PS, and Processing Blocks 

The Low Field four-word control block is 
generated in every object program and is 
modified throughout the execution of that 
object program. Each time a primary or 
secondary record is selected for process- 
ing. Low Field is filled with the follow- 
ing information about that record: 



Address of 


Address of 


Address of 


the Test 


the Move 


the Input/ 


Output In- 


Output 


Output 


dicators 


Fields 


Driver 


routine 


routine 


(lOD) 


Address of 


Not used 


Not used 


B0033 in the 






Central Out- 






put 







Wordl 



Word2 



Words 



Word4 



Low 


Address of 


Address of 


Address of 


Address of 


Field 


the GET 


the CLEV 


the INPF 


the resul- 




routine 


routine 


routine 


ting indi- 
cator 



Wordl ; When a primary or secondary record 
is selected for processing, the address 
of the GET routine for the file that con- 
tained that record is placed in the first 
word of Low Field. This address will be 
used on the next cycle of the object pro- 
gram at get next record time . 

Word 2 ; After a record has been selected 
for processing, the address of the control- 
level extraction routine for that record 
type is entered in Word2 of Low Field. 

Words ; This word contains the address of 
the move input fields routine for the asso- 
ciated record type. 

Word 4 ; This word contains the address of 
the resulting indicator associated with 
this record type. 

When matching fields are specified in the 
RPG source program. Low Field may be ex- 
tended to include two hold areas to aid 
in processing the matching fields. Low 
Field plus the first hold area now becomes 
the Low Field Block, and the second hold 
area is named the PS hold area which con- 
tains the previous primary record. 



K 




1 !-• 


eld Block- 








Word! 


Word2 


Words 


Word4 


Hold Area 


PS Hold Area 







If no secondary files are present in the 
program and the primary file contains no 
M1-M9 fields, only Low Field will be gen- 
erated. If no secondary files are present 
but the primary file does contain M1-M9 
fields, the Low Field Block and the PS 
hold area are generated. 



If both primary and secondary files are 
present, the Low Field Block and the PS 
hold area are joined by a Processing Block 
for each file. These Processing Blocks 
are generated as follows: 
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Low Field Block 



PS hold area 



Primary Processing Block (PPB) 

First Secondary Processing Block (SIPB) 

(S2PB) 

(SnPB) 



hold area *■ 



hold area 



Word] 



Word! 



Word! 



hold area 



hold area 



hold area »- 



Wordl of each Processing Block contains 
the address of the GET routine for the 
associated file. Words 2-4 are dynamically 
filled with the information described for 
Words 2-4 of Low Field. Further informa- 
tion on the functions of Low Field, PS, 
and the Processing Blocks is contained in 
the Processing Multiple Input Files sec- 
t ion of this publication. 

Control Level Hold Areas 

When fields are specified with control- 
level indicators in the RPG source pro- 
gram, two contiguous hold areas are gen- 
erated. These hold areas are named Old 
Hold and New Hold. Each of them is pre- 
ceded by an attribute (A) word containing 
the length of the particular hold area. 
These hold areas appear as follows: 



A 
Word 



Hold area length = 
sum of L1-L9 lengths. 



A 
Word 



Hold area length = 
sum of L1-L9 lengths. 



Old Hold 



New Hold 



Further discussion of the use of these hold 
areas by the control- level compare and ex- 
traction routines may be found under Con- 
trol Level Processing . 

Pseudo Registers 

The first 16 words of the RPG object pro- 
gram are set aside for use as pseudo regis- 
ters. They are used by many of the object 
time routines for passing addresses and 
other information. These registers serve 
the following functions: 



Pseudo registers 0-1 
Pseudo register 2 



Pseudo registers 3-7 
Pseudo register 8 



Pseudo registers 9-13 
Pseudo register 14 

Pseudo register 15 



OBJECT TIME ROUTINES 



volatile 

contains the ad- 
dress of the I/O 
buffer for the re- 
cord being pro- 
cessed, 
volatile 

contains parameters 
during the GET 
function, 
volatile 

used to pass return 
addresses, 
contains the ad- 
dress of the lOD 
being used. 



Since the object time tables and work 
areas have now been examined, a detailed 
description of the executable object pro- 
gram routines may now be presented. 

Input/Output Drivers (lODs ) 

One lOD is generated for every file speci- 
fied in the RPG source program. This lOD 
is a routine which provides linkage to a 
library subroutine that will perform the 
actual input or output operation for the 
file. 

There are six card and printer lODs; they 
will precede disk lODs in the generated 
object program. 



Called 
by lOD 

PRNT3 
PRNTl 
WRTYO 
PNCHO 
CARDO 
READO 



Device 

IBM 1403 Printer 

IBM 1132 Printer 

Console Printer 

IBM 1442-5 Card Punch 

IBM 1442 Card Read Punch 

IBM 2501 Card Reader 
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The logic of these lODs varies from device 
to device, but the card and printer lODs 
do have the first five words in common, 
and they contain the following information i 



Wordl - address of the Write entry point. 
Word2 - address of the Read entry point. 
Words - address of the Control entry point, 
Word4 - address of the I/O area. 
Words - address of the Wait entry point. 

If any of these addresses do not apply to 
a particular lOD (e.g., Word2 does not 
apply to a printer) , the word will contain 
zeroes before being relocated by the Core 
Load Builder at load time. 

As previously mentioned, disk lODs are 
generated immediately following the card 
and printer lODs. They provide linkage to 
library subroutines that perform actual 
I/O operations for disk files. The li- 
brary subroutines which may be called by 
disk lODs are: 



Type of File 


Subroutine 
Name 


Function 


1. Sequential 
Files Pro- 
cessed Ran- 
domly 

II. Sequential 
Files Pro- 
cessed Se- 
quentially 

III. Indexed- 
Sequentiai 
Files 

A. Load 

B. Add 

C. Sequential 
(Input or 
Output) 

D. Random 


DAOPN 

DAIO 

DACLS 

SEQOP 
SEQIO 
SEQCL 

ISLDO 

ISLD 

ISLDC 

ISADO 

ISAD 

ISADC 

ISEQO 

ISEQ 

ISEQC 

ISRDO 

ISRD 

ISRDC 


Open the file 
Read-write operations 
Close the file 

Open the file 
Read-write operations 
Close the file 

Open the file 
Load records 
Close the file 

Open the file 
Add records 
Close the file 

Open the file 
Read-write operations 
Close the file 

Open the file 
Retrieve or update 
Close the file 



Again, the logic of the disk lODs varies 
from one type of processing to another, 
but the first six words of any disk lOD 
contain the following information: 

Wordl - address of the PUT entry to the 

lOD. 
Word2 - address of the GET entry to the 

lOD. 
Words - address of the OPEN entry to the 

lOD. 
Word4 - address of the I/O area . 
Words - address of the WAIT entry to the 

lOD. 
Word6 - address of the CLOSE entry to the 

lOD. 

Also, if any of these words do not apply 
to a particular lOD, the word will con- 
tain zeroes before being relocated by the 
Core Load Builder at load time. 

Fixed Driver (Overhead ) 

The fixed driver routine functions as the 
main linkage driver for every RPG object 
program. It is always the same length and 
performs the same functions. Since this 
section of the object code does not lend 
itself to flowcharting, the actual code is 
shown here (Figure 13) . Following the 
code, the functions of the more important 
labels (circled) will be examined in de- 
tail. 
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0162 


«* 








Y5801620 








0163 


«* 


RPG 


OBJECT 


TIME COMNUNICATICN REGION 


Y5801630 








0164 


«* 








Y5801640 








0165 


«* 








Y5801650 


073E 





0000 


0166 


RO 


DC 


*->!< 


PSEUDO REGISTER 


Y5801660 


073F 





0000 


0167 


Rl 


DC 


*-^t 


PSEUDO REGISTER 1 


Y5801670 


740 





0000 


0168 


R2 


DC 


«-« 


PSEUDO REGISTER 2 


Y5801680 


0741 


c 


0000 


0169 


R3 


DC 


*-* 


PSEUDO REGISTER 3 


Y5801690 


0742 





0000 


0170 


R4 


DC 


«-* 


PSEUDO REGISTER 4 


Y5801700 


743 





0000 


0171 


R5 


DC 


*-* 


PSEUDO REGISTER 5 


Y5801710 


744 





0000 


0172 


R6 


DC 


«-« 


PSEUDO REGISTER 6 


Y5801720 


0745 


c 


0000 


0173 


R7 


DC 


«-* 


PSEUDO REGISTER 7 


Y5801730 


746 





0000 


0174 


R8 


DC 


*-« 


PSEUDO REGISTER 8 


Y5801740 


0747 





0000 


0175 


R9 


DC 


i^--^ 


PSEUDC REGISTER 9 


Y5801750 


0748 





0000 


0176 


RIO 


DC 


*-* 


PSEUDO REGISTER 10 


Y58C1760 


0749 





0000 


0177 


Rll 


DC 


«-:>!' 


PSEUDO REGISTER 11 


Y5801770 


74 A 





0000 


0178 


R12 


DC 


«-* 


PSEUDO REGISTER 12 


Y5801780 


074B 





0000 


0179 


R13 


DC 


«-* 


PSEUDC REGISTER 13 


Y5801790 


74C 


c 


0000 


0180 


R14 


DC 


* — >!« 


PSEUDO REGISTER 14 


Y5801800 


074D 


c 


0000 


0181 
0182 


R15 


DC 


«-« 


PSEUDO REGISTER 15 


Y5801810 
Y5801820 


074E 


CO 


4C0000C0 


0183 
0184 


CNTRL 


BSC 


L *-* 


CONTROL PASSER 


Y5801830 
Y5801840 


0750 





0000 


0185 


ADSRT 


DC 


«-* 


STARTING ADDRESS OF OBJECT 


PY5801850 


0751 





0000 


0186 


TABOT 


DC 


«-:*: 


ADDR OF TABLE OUTPUT ROUT 


Y58C1860 


0752 


c 


ocoo 


0187 


HDAD 


DC 


«-* 


HEADING AND DETAIL LINE ADDRY5801870 


0753 





0000 


0188 


HDTAB 


DC 


*-* 


HEADING AND DETAIL LINE TABLY5801880 


0754 


c 


0000 


0189 


TAD 


DC 


*-* 


TOTAL LINE ACDR 


Y58C1890 


0755 


c 


0000 


0190 


TTAB 


DC 


*-* 


TOTAL LINE TABLE 


Y5801900 


0756 





0000 


0191 


DCALC 


DC 


«-« 


DETAIL CALC ADDR 


Y58C1910 


0757 





0000 


0192 


TCALC 


DC 


«_>)( 


TOTAL CALC ACDR 


Y5801920 


0758 





0000 


0193 


CHANl 


DC 


«-* 


ADDR OF CHAIN ROUT 1 


Y5801930 


075<5 





0000 


0194 


CHAN2 


DC 


>■,<-* 


ADDR OF CHAIN ROUT 2 


Y5801940 


075A 





0000 


0195 


CHAN3 


DC 


*-* 


ADDR CF CHAIN ROUT 3 


Y5801950 


075B 





0000 


0196 


STERI 


DC 


«-« 


ADDR OF STERLING INPUT 


Y5801960 


075C 





0000 


0197 


RAFAD 


DC 


«-« 


ADDR OF RAF FILE ROUR 


Y5801970 


0750 





0000 


0198 


STERO 


DC 


*->K 


ADDR OF STERLING OUTPUT 


Y5801980 


075E 





0000 


0199 


RAFIO 


DC 


*-* 


I/O ADDR OF TO FILE FOR RAF 


Y58C1990 


075F 





0000 


0200 


TABLD 


DC 


«-=!< 


ADDR CF TABLE LOAD ROUTINE 


Y58Q2000 


0760 





0000 


0201 


CTLFD 


DC 


*-* 


ADDR OF CONTROL FIELD ROUT 


Y5802010 


0761 





0000 


0202 


LOWFD 


DC 


*-* 


ADDR CF LOWFIELD 


Y5802020 


0762 





0000 


0203 


CHSAV 


DC 


«-« 


BACKUP FOR CHAINl ROUT ADDR 


Y 5802030 


0763 





0000 


0204 


EAD 


DC 


*-* 


EXCPT LINE ACDR 


Y5802040 


0764 





0000 


0205 


RTE 


DC 


*— « 


RETURN ADDR AFTER EXCPT LINFY5802050 


076 5 


c 


0000 


0206 


ETAB 


DC 


«-* 


EXCPT LINE TABLE 


Y5802060 


0766 





0000 


0207 


ENDAD 


DC 


«->X 


ADDR CF CLCSE FILES 


Y5802070 


0767 




0005 


0208 


^ — i^,,^ 


BSS 


5 


FOR FUTURE EXPANSION 


Y5802080 


076C 


00 


7401000C 


0209 


(iNPSb 


MDM 


Rll-AF 


tONEE BUMP Rll BY 1 


Y58C2090 


076E 


00 


7403000C 


0210 


Qlps£: 


► MDM 


Rll-AF 


,THREE BUMP Rll BY 3 


Y5802100 


0770 


00 


C480000C 


0211 


TSTRC 


LD 


I Rll-AF 


GET FIRST WD OF FILE TAB 


Y5802110 


0772 





DOCC 


0212 




STO 


Rl 


SAVE IN Rl 


Y5802120 


0773 


00 


4C800002 


0213 


("err^ 


B 


I Rl-AF 


GO TO ADDR IN Rl 


Y53C2130 


0775 







0214 


EOU 


* 


PUT RCD CUT OF SEQUENCE 


Y58C2140 


0775 


00 


65800010 


0215 




LDX 


11 R15-AF 


SET XRl TO R15 


Y5802150 


0777 





cooc 


0216 




LD 


XOOOC 


GET A 


Y5802160 


0778 





DlOl 


0217 




STO 


1 ONEE 


SET SWITCH IN NUM SEQ RTN 


Y5802170 


0779 


00 


C400012B 


0218 




LD 


L ACCST-/ 


!\F SEE IF R15 + 1 WAS / FO 


Y5802180 


077B 


00 


4CA00010 


0219 




BNZ 


I R15-AF 


YES TA ADDR IN R15 


Y5802190 


0770 





C007 


0220 




LD 


X7009 


BRANCH TO «+9 


Y5802200 


077E 





D107 


0221 




STO 


1 SEVEN 


SET SWITCH IN NUM SEQ RT 


Y5802210 


077F 


30 


191C5659 


0222 




CALL 


RGERR 


GET OBJECT TIME ERROR ROUT 


Y5802220 


0781 





1111 


0223 




DC 


/nil 


NOTE cm 


Y5802230 


0782 


00 


4C000049 


0224 




B 


L GETRC-^ 


^F GO READ A RECCRD 


Y5802240 


0784 





0000 


0225 


XOOOO 


DC 


/OOOO 


THESE TWO DCS SET SWITCH 


Y5802250 


0785 





7009 


0226 


X7C09 


DC 


/7C09 


IN THE NUM SEQ RTN 


Y5802260 
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1130 RPG RG58 ASSEMBLE FIXED DRIVER 



A OCR 


REL 


. OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 


0786 







0227 


(GETRQ 


EQU 




* 


0786 


00 


C400015F 


0228 


hlTSw 


LD 


L 


Hl-l-AF ( 


0788 


CO 


4C2 000F4 


0229 




BNZ 




EOJRO-AF 


078A 


00 


6 5000160 


0230 




LDX 


LI 


Hl-AF 1 


078C 





COIC 


0231 




LD 




NHIND 1 


078D 





DOIC 


0232 




STO 




LHIND : 


078E 





ClOO 


0233 


LOOP 


LD 


1 


ZEROE ( 


078F 


00 


4C2000C4 


0234 




BNZ 




HLTMS-AF 


0791 





7101 


0235 




MDX 


1 


ONEE 1 


0792 


00 


74FF006D 


0236 




MDM 




LHIND-AF,- 


0794 


c 


70F9 


0237 
0238 


« 


B 




LOOP 


0795 







0239 


RESRT 


EOU 




* 








0240 


* ALL 


CONTROL 


LEVEL, HALT 








0241 


* SWITCHES 


ARE NOW TURNEI 


0795 


00 


65000154 


0242 




LDX 


LI 


FP-AF 








0243 


* TO J 


SHUT 


OFF 




0797 





C013 


0244 




LD 




NUMIN 


0798 





D013 


0245 




STO 




NUMLP 


0799 





1010 


0246 




SLA 




SIXTE 


079A 





DlOO 


0247 


LOOPl 


STO 


1 


ZEROE 


079B 





7101 


0248 




MDX 


1 


ONEE 


79C 


00 


74FF006F 


0249 




MDM 




NUMLP-AF»- 


079E 





70FB 


0250 




B 




LOOPl 


079F 





COCl 


0251 




LD 




LOWED 


07A0 





00A7 


0252 




STO 




RIO 


07A1 


00 


C4800006 


0253 




LD 


I 


RIO-AF 


07A3 





D0A2 


0254 




STO 




R8 


07A4 





C008 


0255 




LD 




INDON 


07A5 


00 


D4000155 


0256 




STO 


L 


LO-AF 


07A7 


00 


4C800009 


0257 


LABEO 


B 


I 


R8-AF 


07A9 


c 


0009 


0258 


NHIND 


DC 




9 


07AA 





0000 


0259 


LHIND 


DC 







07AB 





0000 


0260 


NUMIN 


DC 







07AC 





0000 


0261 


NUMLP 


DC 







07AD 





0001 


0262 


INDON 


DC 




/OCOl 


07AE 


00 


C400015F 


0263 


/^ETrnLD 


L 


LR-AF 


07B0 





90FC 


0264 


^'> -^ 


S 




INDON 


07B1 


00 


4C180103 


0265 




BZ 




CLOSF-AF 


07B3 


00 


65800024 


0266 




LDX 


11 


LOWFD-AF 


07B5 


00 


6D000002 


0267 




STX 


LI 


Rl-AF 


07B7 





C102 


0268 




LD 


1 


TWOE 


07B8 


00 


D4000009 


0269 




STO 


L 


R8-AF 


07EA 





ClOO 


0270 


LDIOA 


LD 


1 


ZEROE 


07EB 


CO 


D4000003 


0271 




STO 


L 


R2-AF 


07BD 


00 


65800003 


0272 




LDX 


11 


R2-AF 


C7BF 





C106 


0273 




LD 


1 


SIXE 


07C0 


00 


D4000003 


0274 




STO 


L 


R2-AF 


07C2 


. 00 


65800003 


0275 




LDX 


11 


R2-AF 


07C4 





C103 


0276 




LD 


1 


THREE 


7C5' 


00 


D4000003 


0277 




STO 


L 


R2-AF 


7C7 


00 


C400014F 


0278 




LD 


L 


INTMR-AF 


07C9 





180F 


0279 




SRA 




15 


07CA 


00 


D4000150 


0280 




STO 


L 


MR-AF 


7CC 





1810 


0281 




SRA 




SIXTE 


07CD 


oo 


D400014F 


0282 




STO 


L 


INTMR-AF 


07CF 





70D7 


0283 
0284 
0285 


* 
* 


B 




LABEO 



PAGE 6 

SOURCE DATE-02/25/69 

ID/SEQNO 



GET LR INDICATOR 

IF ON GO TO EOJ 

POINT TO START OF HALT IND 

HOW NANY ARE THERE TO CHK 

STORE FOR LOOP CONTROL 

GET A HALT INDICATOR 

IF ON GO PUT CUT MESSAGE 

POINT TO NEXT HALT IND 

1 DECREMENT LOOP COUNTER 

IF All nct checked retry 



tAND INPUT RECORD INDICATOR 

D OFF 

POINT TO START OF INDICATOR 

HOW MANY TO SHUT OFF 
STORE FCR LCCP CONTROL 
CLEAR THE ACCUMULATOR 
SHUT OFF AN INDICATOR 
POINT TO NEXT INDICATOR 
1 DECREMENT LOOP COUNTER 
IF ALL NOT OFF CONTINUE 
GET ADDRESS CF LOW FIELD 
PUT IN REG 10 
GET ADDR OF GET 
PUT IN REG 8 
GET INDICATOR CN 

TURN LEVEL ZERO ON 

GO TO CONTENTS OF REG 8 

NUMBER OF HALT INDICATORS 

LOCP COUNTER 

FILLED IN AT COMPILE TIME 

LOOP COUNTER 

INDICATOR ON 

GET LR INDICATOR 

IS IT ON 

YES END OF FILE 

GET ADDR OF LOW FIELD 

SAVE IN REG 1 

ADDR CF MOVE FIELDS RTN 

SAVE IN REG 8 

GET LOW FIELD 

SAVE IN REG 2 

PICK UP ADDR OF GET 

GET lOD ADDRESS 

SAVE IN REG 2 

PUT IT IN XRl 

GET ADDR THE I/O AREA 

PUT IN REG 2 

TURN ON MR SWITCH IF NECC 

MAKE EQUAL TO /OOOl 

ESSARY 

CLEAR ACCUMULATOR 

SHUT OFF INTERNAL MR SWITC 

GO TO MOVE INPUT FIELDS 



Y5802270 
Y5a02280 
Y5802290 
Y5802300 
Y5802310 
Y5802320 
Y5802330 
Y5802340 
Y5802350 
Y5802360 
Y5802370 
Y5802380 
Y5802390 
Y5802400 
Y5802410 
Y5802420 
Y5802430 
Y5802440 
Y5802450 
Y5802460 
Y5802470 
Y5802480 
Y5802490 
Y5802500 
Y5802510 
Y5802520 
Y5802530 
Y5802540 
Y58C2550 
Y5802560 
Y5802570 
Y5802580 
Y5802590 
Y5802600 
Y58C2610 
Y5802620 
Y5802630 
Y58C2640 
Y5802650 
Y5802660 
Y5802670 
Y5802680 
Y5802690 
Y58C2700 
Y5802710 
Y58C2720 
Y5802730 
Y5802740 
Y5802750 
Y5802760 
Y5802770 
Y5802780 
Y5802790 
Y5802800 
Y58C2810 
Y5802820 
Y5802830 
Y5802840 
Y5802850 



Figure 13. Object Code for the Fixed Driver Routine (Part 2 of 4) 



Part Two: 1130 RPG Object Program 93 



113C 


) RPG RG58 


ASSEMBLE FIXED 


DRIV 


ER 




/\OCR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 


O7D0 







0286 


(PRORC) 


EOU 




* 


07DC 


00 


6580000B 


0287 


LDX 


n 


RIO-AF 


07D2 





C103 


0288 




LD 


1 


THREE 


07D3 





D002 


C289 




STO 




SETIN+2 


7D4 





CCD8 


0290 


SETIN 


LD 




INDON 


07D5 


00 


04000000 


0291 




STO 


L 


ZFROE 


07D7 


00 


C4000004 


0292 




LD 


L 


P3-AF 


07C9 


CO 


94000010 


0293 




S 


L 


R15-AF 


07CB 


00 


4C180119 


0294 




BZ 




TOTSW-AF 


07CD 


00 


6580000B 


0295 




LDX 


11 


PIO-AF 


07DF 





ClOl 


0296 




LD 


1 


ONEE 


07E0 


CO 


D4000009 


0297 




STO 


L 


R8-AF 


07E2 





7CC4 


0298 




B 




LABEO 









0299 
0300 


*THIS 


ROUTINE 
'FOU 


IS TC GET 


07E3 


CaddgtJ 


* 


07E3 


00 


65800009 


0301 




LDX 


11 


R8-AF 


07E5 





ClOl 


0302 




LD 


1 


ONEE 


07E6 


00 


D400000C 


0303 




STO 


L 


Rll-AF 


07E8 


CO 


6D00000F 


0304 




STX 


LI 


R14-AF 


7EA 





ClOO 


0305 


GETFL 


LD 


1 


ZEROE 


07EB 


00 


D4000010 


0306 




STO 


L 


R15-AF 


07E0 


00 


65800010 


0307 




LDX 


11 


R15-AF 


07EF 





C103 


0308 




LD 


1 


THREE 


07F0 


00 


D4000003 


0309 




STO 


L 


R2-AF 


07F2 





ClOl 


0310 




LD 


1 


ONEE 


07F3 


00 


D4000010 


0311 




STO 


L 


R15-AF 


07F5 





C004 


0312 




LD 




AINPS 


07F6 


00 


D400000B 


0313 




STO 


L 


RlO-AF 


07F8 


00 


4C800010 


0314 




B 


I 


R15-AF 


07FA 





002F 


0315 


AINPS 


DC 




INPSE-AF 








0316 


*INPUT ROUTINE LINKAGE 








0317 


•MULTIFIELD LINKAGE ROU 


07FB 







0318 


MFLNK 


EQU 




* 


07FB 


CO 


6580000C 


0319 




LDX 


11 


Rll-AF 


07FD 





ClOl 


0320 




LD 


1 


ONEE 


07FE 


CO 


D4000009 


0321 




STO 


L 


R8-AF 


oaco 





7CA6 


0322 




B 




LABEO 








0323 


« ROUTINE 


TO 1 


PRINT HALT 


0801 







0324 


(hltms) 


(EQU 




* 


0801 





COID 


0325 


LD 




AHIMI 


08C2 


00 


D400000F 


0326 




STO 


L 


R14-AF 


0804 





C015 


0327 




LD 




ZERO 


0805 


CO 


04000010 


0328 




STO 


L 


R15-AF 


0807 


00 


7401000F 


0329 


ITERA 


MDM 




R14-AF»0N 


08C9 


00 


74010010 


0330 




MDM 




R15-AFtON 


08CB 


00 


C480000F 


0331 




LD 


I 


R14-AF 


080D 


00 


94000070 


0332 




S 


L 


INDON-AF 


080F 


00 


4C2000CA 


0333 




BNZ 




ITERA-AF 


0811 





COOC 


0334 




LD 




NOTMl 


0812 


00 


ECOOOOlO 


0335 




OR 


L 


R15-AF 


0814 





D002 


0336 




STO 




NOTMS 


0815 


30 


191C5659 


0337 




CALL 




RGERR 


0817 





1120 


0338 


NOTMS 


DC 




/1120 


0818 


00 


4C000058 


0339 




B 


L 


RESRT-AF 


081A 





0000 


0340 


ZERO 


DC 







081B 





0000 


341 


SEEK A 


DC 




*-* 


081C 





0000 


0342 




DC 




*-* 


0810 





0000 


0343 




DC 




«-♦ 


081E 





1120 


0344 


NOTMl 


DC 




/112C 



PAGE 7 

SOURCF 0AT6-C2/25/69 

in/SFQNO 



GET CONTENTS OF REG 10 
GET INPUT INDICATOR ADOR 

GET INDICATOR CN 

THIS TURNS ON INPUT INO 

GET REG 3 

IS IT EQUAL TO REG 15 

YES TC TCTAL TIME ROUTINE 

POINT TO LCW FIELD 

ADDR GF LEVEL EXTRACTION 

PUT IT IN REG 8 

GO TC LABEL 

A FILE 

GET REG 8 

GET FILTAB-4 ADDR 

PUT IT IN REG 11 

PUT REG 8 IN REG 14 

GET ICO ADDRESS 

STCRE IN REG 15 

GET ACDR IN REG 15 

GET I/O AREA ADDRESS 

SAVE IN REG 2 

GET READ ENTRY ADDRESS 

SAVE IN REG 15 

GET ADDR OF INPSE 

SAVE IN REG 10 

GO TC READ ENTRY IN 100 

ADDR CF INPSE 
TO ALPHA SEQUENCE 
TINE 

RTN TO HANDLE MULTI-FILE 

POINT TO FILE INPUT TABL 

GET MFEXT RTN ADDR 

SAVE IN REG 8 

GO TO LAPEL 

MESSAGE INDICATOR 

GET ACDR OF Hl-1 

PUT IN REG 14 

GET CCMPARAND 

SAVE IN REG 15 
EE BUMP REG 14 BY 1 
EE BUMP REG 15 BY 1 

GET A HALT IKOICATGR 

IS IT ON 

NO TRY NEXT CNE 

GET ^'ESSAGE TO PUT OUT 

OR IN HALT NUMBER 

UPDATE MESSAGE 

GET OBJECT TIME ERROR ROUT 

C12N MESSAGE* N = HALT NUMB 

CONTINUE PROCESSING 

CONSTANT OF ZERO 

GENERAL WORK AREA 

GENERAL WORK AREA 

GENERAL WORK AREA 

USED TO BUILD C12N NOTE 



Y580286O 
Y5802870 
Y58C2880 
Y5802890 
Y5802900 
Y5802910 
Y5802920 
Y5802930 
Y5802940 
Y5802950 
Y5802960 
Y58C2970 
Y 5802980 
Y58C2990 
Y5803000 
Y 5 8030 10 
Y5803020 
Y58C3030 
Y5803040 
Y5803050 
Y5803060 
Y5803070 
Y5803080 
Y5803090 
Y5fl03l00 
Y5803110 
Y58C3120 
Y58C3130 
Y5S03140 
Y58C3150 
Y5803160 
Y5803170 
Y5e03180 
Y5803190 
Y5803200 
Y5803210 
Y58C3220 
Y5803230 
Y58C3240 
Y5803250 
Y5803260 
Y5803270 
Y 5 803 2 80 
Y5803290 
Y5803300 
V5803310 
Y59C3320 
Y5803330 
Y5803340 
Y5803350 
Y5803360 
Y5803370 
Y5803380 
Y5803390 
Y5e03400 
Y5803410 
Y 5 80 34 20 
Y58C3430 
Y5803440 



Figure 13. Object Code for the Fixed Driver Routine (Part 3 of 4) 
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1130 R»»G R658 ASSeMRLE FIXED DRIVER 



AOCR PEL OBJECT ST, NO. LABEL OPCO FT OPERANDS 



PAGE 8 

SOURCE OATE-02/25/69 

ID/SFQNO 



0«lE 





015F 


0345 




OC 




Hl-l-AF 


ADDRESS GF Hl-1 


Y5803450 


0820 







0346 


EOU 




« 




TOTAL TIME ROUTINE 


Y5803460 


0820 





COOF 


0347 




LD 




CON 




HAS CCN BEEN FILLED IN 


Y5803470 


0821 


00 


4C1800ED 


0348 




B7. 




TOTRO- 


AF 


NO TO TOTAL TIME 


Y5803480 


0823 


00 


65800010 


0349 




LOX 


11 


R15-AF 




GET ACDR IN REG 15 


Y5803490 


0825 





C104 


0350 




LD 


1 


FOURE 




GET R15+4 


Y5803500 


0826 





6009 


0351 




AND 




CON 




FIRST TIME SWITCH 


Y58C3510 


0827 





9008 


0352 




S 




CON 






Y58C3520 


0828 


00 


4C180071 


0353 




BZ 




GETIF- 


AP 


IF CK TO GETIF 


Y 5 303 5 30 


082A 


CO 


C400001A 


0354 


TOTRO 


LD 


L 


TCALC- 


AF 


GET ADDR OF TOTAL CALCS 


Y58G3540 


082C 


00 


04000009 


0355 




STO 


L 


RR-AF 




PUT IN REG 8 


Y58C3550 


0825 


CO 


4C800009 


0356 




B 


I 


R8-AF 




GO TC TOTAL CALCS 


Y5803560 


0830 





0000 


0357 


CON 


DC 




*_« 




FILLED IN EXTERNALLY 


Y58C357C 








0358 


««END 


GF JOB 1 


ROUTINE 






Y58C3580 


0831 







C359 


CkojRTh 

E0J8K 


lEQU 




« 




END JOB ENTRY 


Y58C3590 


0821 







0360 


EOU 




* 




END JOB ENTRY 


Y5803600 


0831 


00 


65C00155 


0361 




LDX 


LI 


LO-AF 




POINT TO START OF LEVEL 


Y5803610 








0362 


* INDICATORS 


TO MAKE 


FINAL CCNTRCL BREAK 


Y58C3620 


0833 





cioc 


0363 




LD 


1 


ZEROF 




PICK UP LO (CN) 


Y58C3630 


834 





OlOl 


0364 


LnOP2 


STO 


1 


ONEE 




TURN CN AN INDICATOR 


Y58C3640 


0835 





7101 


0365 




MDX 


1 


ONEE 




POINT TO NEXT INDICATOR 


Y5303650 


0836 


00 


74FFQ102 


0366 




MDM 




NLIND- 


AF, 


-1 DECREMENT LOP COUNTER 


Y58C3660 


0838 





70FB 


0367 




B 




L00P2 




IF NCT DONE SET NEXT ONE 


Y5803670 


0839 


00 


C 40000 I A 


0368 




LD 


L 


TCALC- 


AF 


GET TOTAL CALCULATION ADDR 


Y5803680 


083B 


00 


04000009 


0369 




STO 


L 


R8-AF 




SAVE IN REG 8 


Y58C3690 


083C 


00 


4C800009 


0370 




R 


I 


R8-AF 




GO THERE 


Y58C3700 


083F 


c 


OOOA 


0371 


NLIND 


DC 




10 




L1-L9,LR 


Y5803710 








0372 


**^l,OSE THE FILES 






Y5803720 


0840 


00 


C4000014 


0373 


(f'LOS^ 


I to 


L 


TABOT- 


AF 


GET ADDR OF TABLE OUTPUT 


Y5803730 


0842 


00 


04000005 


C374 


**-— — ^ 


STO 


L 


R4-AF 




PUT IN R4 


Y58C3740 


0844 





lOlO 


0375 




SLA 




16 




CLEAR THE ACCUMULATOR 


Y5803750 


0845 


CO 


04000007 


0376 




STQ 


L 


R6-AF 




CLEAR R6 


Y5803760 


0R47 


00 


P4000008 


0377 




STO 


L 


R7-AF 




R7 


Y5803770 


0845 


00 


65000112 


0378 




LDX 


LI 


«+4-AF 




SET UP RETURN ADDRESS 


Y5803780 


0848 


00 


600000bA 


0379 




STX 


LI 


R9-AF 




SAVE IN REG 9 


Y5803790 


0840 


00 


4C8C0005 


0380 




B 


I 


R4-AF 




GO CLEAN UP 


Y58C3800 


084F 


00 


4C800029 


0381 
0382 


CLl 


B 


I 


ENDAD- 


■AF 


GC CLOSE FILES 


Y5803810 
Y5803820 


0851 


c 


6038 


0383 




EXIT 








ALL CCNE 


Y58C3830 








0384 












Y5803840 


0852 





0000 


0385 


FCl 


DC 




*-* 




CHAINING INDICATOR 1 


Y58C385C 


0853 





0000 


03 86 


FC2 


DC 




*-* 




CHAINING INDICATOR 2 


Y5803860 


0854 





ccoo 


0387 


FC3 


DC 




*-* 




CHAINING INDICATOR 3 


Y580387C 


0855 





0000 


0388 


GIFTS 


DC 









ADDR OF CHAINl FILE TABLE 


Y5803880 


0856 





7001 


0389 


TOTSW 


B 




*+l 




FIRST TIME DCNT GO TO TOTR 


Y5803890 


0857 





7002 


C390 




B 




TOTRO 




AFTER 1ST TIME GO TO TOTRO 


Y5803900 


0858 





C003 


0391 




LD 




NOOP 




SET AFTER 1ST TIME BRANCH 


Y5803910 


0859 





DOFC 


0392 




STO 




TOTSW 




TO GC TO TOTRC 


Y^803920 


0«5A 


00 


4C000071 


0393 




P 


L 


GETIF- 


■AF 


1ST TIME ONLY GO TO GETIF 


Y5803930 


085C 





1000 


0394 
C395 


NOOP 
* 


NOP 








CONSTANT FOR NOP 


Y5803940 
Y5803950 


Figure 13. (%ject 


Code 


for the Fixed 


Driver Routine (Part 4 of 4) 
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INPSE ; This code is entered from the GET 
routine for a particular file after a re- 
cord has been read from that file. PRll 
(pseudo register 11) contains the address 
of the File Input Table -4 for the file 
just read. (See File Input Tables for fur- 
ther information.) PRll is then increment- 
ed by 4 to point at the first word of the 
table entry. This word (address of the 
INPR routine) is then placed in PRl and 
the Fixed Driver branches to the INPR rou- 
tine. 

ALPSE ; This code is entered from the out- 
put lines routine. PRll contains the ad- 
dress of the Output Table -3. The Output 
Table in question may be DTAB, TOTAB, OTAB, 
or EXTAB. PRll is then incremented by 3 
to point at Wordl of the table entry. 
Wordl (address of the Test Output Indica- 
tors routine) is then placed in PRl and 
the branch is taken to the Test Output In- 
dicators routine. 

ERR: If a numeric sequencing error occurs, 
this routine is entered to put out the 
error indication. 

GETRC ; This routine first checks the LR 
indicator; if on, a branch is taken to 
total calculations. If off, the halt in- 
dicators are checked next. If any of the 
halt indicators are on, a branch is taken 
to HLTMS, the routine which indicates the 
error. Next, beginning at RESRT, all con- 
trol-level, halt, and input record indica- 
tors are turned off. The address of the 
GET routine for the file about to be read 
is taken from Wordl of Low Field and 
placed in 'PR8 . A branch to the GET rou- 
tine is then taken via PR8 . 

GETIF: This routine first checks the LR 
indicator; if on, a branch is taken to the 
CLOSE routine. If off, the address of the 
move input fields routine is taken from 
Word3 of Low Field and placed in PR8 . The 
lOD address is obtained and from the lOD 
the I/O area address (Word4) is taken and 
placed in PR2 . The MR indicator is set 
on/off and a branch is taken to LABEO in 
the Fixed Driver. At LABEO a branch via 
PR8 is taken to the move input fields 
(INPF) routine for the record type being 
processed. 

PRORC ; This code takes the record identi- 
fying indicator address from Word4 of Low 
Field and turns that indicator on. If 
there are control levels in the program, 
a branch is taken to the control-level ex- 
traction routine pointed at by Word2 of 



Low Field. If no control levels exists in 
the program, a branch is taken to total 
calculations, providing this is not the 
first cycle of the object program. 

ADDGT ; Upon entering this code, PR8 is 
pointing at two words in the GET routine 
for the particular file from which a record 
is about to be retrieved. The first word 
contains the address of the lOD for the 
file; the second word contains the address 
of the File Input Table entry -4. The 
File Input Table -4 address is placed in 
PRll. PR14 is loaded with the contents of 
PR8. At GETFL, the I/O area address is 
taken from the lOD and placed in PR2 and 
the read entry address is taken from the 
lOD and placed in PR15. The address of 
INPSE in the Fixed Driver is placed in 
PRIO and a branch is taken to the read en- 
try point in the lOD to read a record. 

MFLNK ; This code provides linkage to han- 
dle matching fields extraction and multi- 
file logic. It is entered from a GET rou- 
tine with PRll pointing to the File Input 
Table entry which corresponds to the re- 
cord type just read. Word2 of the entry 
(address of the matching fields extraction 
routine for this record type) is taken 
from the table and a branch is taken to 
this address (MFEXT) . 



HLTMS : 



This code checks the halt indica- 



tors and provides linkage to issue any 
necessary error indication. 

TCLNK ; This code tests a first-time switch 
to determine whether total calculations 
and lines should be bypassed. If this is 
the first cycle of the object program, a 
branch is taken to GETIF in the Fixed 
Driver. If not, a branch is taken to to- 
tal calculations. 

EOJRO: This code turns LR and L1-L9 on 
and links to total calculations. 

CLOSE ; This code obtains the address of 
the table output routine, places it in 
PR4 and links to the Close Files routine. 

EOJ: Exit. 

Output Lines Routines 

The object code routines for putting out 
lines consist of four major sections, not 
including the lODs which are essential to 
the operation of these routines. These 
routines appear in core storage in the 
following order: 
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Low 
Core 



Move Output Fields 
Routine 



Central Output 
Driver (COD) 



Test Indicator 
Routine 



Output Tables - DTAB 
- TOTAB 
- OTAB 
- EXTAB 



} 



This routine is 
generated by RG52. 



These routines are 
> generated by RG54. 



Entered from 
the Fixed 
Driver to put 
out heading 
and detail 



c 



BOOOO 



> 



■Pointed at by HDAD in 







Table (FAT) 


PR8— KaBOOOl 
PRIO— KSALPSE 
In the Fixed Driver 
PR! !-«— @DTAB-3 




FIXED DRIVER 




ALPSE 

















See Figure 17 for the core storage loca- 
tions of all object routines. 

Each of these routines will be discussed 
separately, after which their combined 
function will be explained. 



Move Output Fields Routine 

For each output line specified in the RPG 
source program, a move output fields rou- 
tine will be generated. This routine 
moves the fields which make up its partic- 
ular line into the output buffer (I/O 
area) . If field output is conditioned by 
an indicator, the routine ensures that the 
indicator is on/off before the move is per- 
formed . 



Entered from 
the Fixed 
Driver to put 
out total lines. 



c 



B0006 



3 



•Pointed at by TAD in 







t-Al 


PR8-«— OBOOOl 
PRlO-»-KaALPSE 
PRl 1— -<g)TOTAB-3 




FIXED DRIVER 




ALPSE 





















Central Output Driver (COD) 

The COD first receives control whenever 
output is to be performed. The accompany- 
ing figure describes the logic of the COD. 
Note that this routine has several entry 
points and several exits. The COD is a 
pre-coded routine in RG54 and is generated 
for every RPG object program. 



Entered from 
calculation'! 
to put out 
EXCPT lines. 



(B0032 )-* Pointed at by EAD in 
■ ^ PAT 







TAI 


PRS-"— @B0001 
PRl -—©ALPSE 
PRl 1— ^EXTAB-3 




FIXED DRIVER 




ALPSE 





















Figure 14. Logic of the Central Output 
Driver (Part 1 of 3) 
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c 



NO 



BOOOl 



3 



Get Addr 
of Wait 
Entry in 
the lOD 



lOD 



Wait Until 
I/O Device 
is Free 




FIXED DRIVER 



ALPSE 



Process Next 
Output Line 
(Next Table Entry) 



Inc PRll by 
3 to Bypass 
'OR' Table Entry 
Since Line was 
Just Put Out 



Get I/O Area 
Addr From 
lOD and Place 
in PR2 




YES 



Get Move 
Output Fields 
Addr From 
Output Table 
Entry Pointed 
at by PRll 



Get lOD 
Addr From 
Table Entry 
Pointed At 
By PRll 



r BOOIO J 



Link to lOD 
to Perform 
Skip and Space 
Operations 



( BOOOl J 



C B0015 J 



MOVE OUTPUT 
FIELDS 



Fill I/O 
Area With 
Fields 



Link to lOD 
to Select 
Punch 
Stacker 



r BOOOl j 




Figure 14. Logic of the Central Output Driver (Part 2 of 3) 
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c 



c 



B0018 



) 



Link to lOD 
to Perform 
Skip to 
Channel 1 




FIXED DRIVER 




ALPSE 

















/* 


^ 


n • 


ted at by word 1 of 
ny entry in DTAB 


( B0020 J 


dum 








Set On/Off 
Overflow 
Indicators 
Set Off IP 
Indicator 




FIXED DRIVER 




GETRC 















B0025 

^ 



r 



• Pointed at by word 1 of 
dummy entry in TOTAB 



Set Overflow 

Indicators 

On/Off 



FIXED DRIVER 




Overflow 





ALPSE 


YES , 


Start 

Processing 

OTAB 





NO 



FIXED DRIVER 




c 



B0030 



> 



•Pointed at by word 1 of 
dummy entry in OTAB 







Set Off 
Overflow 
Indicators 




FIXED DRIVER 




GETIF 












Ready to 
Move Input 
Fields 









c 



B0033 



y 



-Pointed at by word 1 of 
dummy entry in EXTAB 



Set Overflow 

Indicators 

On/Off 




Figure 14. Logic of the Central Output Driver (Part 3 of 
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Test Indicators Routines 

For every output line specified in the 
source program, a test indicators routine 
is generated. For most output line speci- 
fications the following routine will be 
generated. 



FIXED DRIVER 




ALPSE 




Point to 
Next Table 
Entry 


. NO , 






COD 





BOOOl 


.Y^^ . 


Determine if 
I/O Device 
is Free 





If the output line is directed to a printer 
and space before or skip before is speci- 
fied, the following routine will be gener- 
ated. 



FIXED DRIVER 



ALPSE 




Point to 
Next Table 
Entry 


NO , 






COD 





BOO 10 


.YES , 


Perform 
Control 
Operations 





If the output line is directed to a punch 
and stacker select is specified, the fol- 
lowing test indicators routine will be 
generated. 



C 



START 



FIXED DRIVER 




ALPSE 




Point to 
Next Table 
Entry 


J NO , 





3 




COD 



YES 



B0015 



Link to lOD 
to Perform 
Stacker Select 
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Output Tables 

A description of these tables is contained 
under Tables and Work Areas . These tables 
follow the Test Indicators routines in 
core storage and are contiguous in the fol- 
lowing order. 



Low 
Core 



DTAB 



TOTAB 



OTAB 



EXTAB 



Starting with this basic information about 
the functions and logic of the output lines 
routines, the following section shall at- 
tempt to show the dependencies and inter- 
relationships of these routines within an 
actual object program. 

To illustrate these relationships, the out- 
put specifications of an RPG source program 
are provided so that a trace of the code 
may be made. 



A detail lines output table (DTAB) will be 
generated with these entries: 



DTAB 



Address of 


Address of 


Address of 


the routine 


the routine 


the lOD that 


that tests 


that moves 


performs the 


indicator 01 


FLD1 to the 
output buffer 


I/O operation 


Address of 


Address of 


Address of 


the routine 


the routine 


the lOD that 


that tests 


that moves 


performs this 


indicator 02 


FLD2 to the 
output buffer 


i/O operation 


Address of 


Not used 


Not used 


B0020 in the 






COD 







Steps 1 through 9 trace the sequence of 
steps that will be executed at detail lines 
time. 



IBM 



InUrnatJonil Butinsu MKhines Corporation 

RPG OUTPUT- FORMAT SPECIFICATIONS 



Punching 
Instruction 


Grapiiic 
















Punch 

















■m 



Program 
Identification 







For 


•n X21-9090 


PrintM in U.S.A. 


75 76 77 78 79 80 















Pro8f»mmer . 



7 8 9 10 It 12 13 14 



Space 



Output Indicators 



And And 



32 33 34 3B 36 37 



0> 



End 
Positon 



Output 
Record 



40 41 42 43 



Constant or Edit Word 

46 46 47 48 49 so 61 62 63 64 66 66 57 58 69 60 61 62 63 64 



Edit Codes 


Commas 


Zero Balances 
to Print 


No Sign 


CR 


- 


X - Remove 
Plus Sign 

Y " Date 

Field Edit 

Z - Zero 

Suppress 


Yes 
Yes 
No 
No 


Yes 
No 
Yes 
No 


1 
2 
3 

4 


A 
B 
C 
D 


J 

K 
L 
M 



Sterling 

Sign 

Position 



71 72 73 74 



V( 







5K 
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1. The Central Output Driver (COD) re- 
ceives control from the Fiiced Driver 
at BOOOO. The address of BOOOl is 
placed in PR8 , and the address of ALPSE 
in the Fixed Driver is placed in PRIO. 
The address of DTAB-3 is placed in PRll 
and a branch is taken to ALPSE via PRlO . 

2. At ALPSE (this label is discussed in 
further detail under Fixed Driver ) , 
PRll is incremented by 3 to point at 
Wordl of the first entry in DTAB. The 
address of the test indicators routine 
for the line associated with the first 
entry is taken from DTAB and placed in 
PRl. A branch is then taken to the 
test indicators routine. 

3. The test indicators routine determines 
whether indicator 01 is on. If 01 
were not on, a branch would be taken 
via PRIO to ALPSE which would incre- 
ment PRll and load PRl to process the 
output line. Assuming though, that 01 
is on, a branch is taken to the address 
contained in PR8 . (PR8 was loaded with 
the address of BOOOl in the COD.) 

4. At BOOOl the lOD address is taken from 
the table entry associated with the 
line being processed and a branch is 
taken to the WAIT entry point in the 
lOD. The lOD returns directly to the 
COD when the I/O device is free. 

5. The COD then takes the address of the 
move output fields routine from the 
DTAB entry for the line being pro- 
cessed and branches to that routine. 

6. The move output fields routine moves 
FLDl to its proper place in the output 
buffer and links back to the COD. 

7. The COD links to the PUT entry point of 
the lOD to put out the output line just 
built. Control is then given back to 
the COD. 

8. Next, the move output fields routine 
addresses of the first and second en- 
tries in DTAB are compared. If equal, 
the COD would determine that entry2 is 
an 'OR' table entry. The 'OR' entry 
would not be processed since the line 
has already been put out. In the case 
of these lines however, the addresses 
are not equal and a branch is taken to 
ALPSE in the Fixed Driver. 

9. At ALPSE, PRll, which still points to 
entry 1 in DTAB, is incremented by 3 

to point to entry2. The address of the 
test indicators routine for the second 
output line is taken and a branch is 
made to the test indicators routine. 

Steps 3-9 are then repeated in order to 
put out the second output line. When step 
9 is again reached and PRll is incremented 
by 3, it will be pointing at the dxrnimy 
table entry. Wordl of this entry will 
contain the address of B0020 in the COD 
and a branch will be taken to that point. 



Next, if overflow occurred while printing 
the previous two lines, the appropriate 
overflow indicator is turned on. The IP 
indicator is then turned off and- a branch 
is taken to GETRC in the Fixed Driver. 
GETRC will begin the steps necessary to 
get the next record and repeat the cycle. 



Get Input Record Routines 

Certain tables and work areas essential to 
the task of getting an input record, name- 
ly. File Input Tables, lODs, Low Field, 
and the Low Field Block, PS, and Primary 
and Secondary Processing Blocks have been 
discussed previously under Tables and Work 
Areas . The reader should refer to that 
section of the publication for any infor- 
mation needed to understand the Get Input 
Record Routines. 

These routines: GET routines, 
MFTST routine, 
EOFTS routine, and 
MFEXT routines 
will be explained individually and then a 
trace of a simple program will be made to 
illustrate how these routines function to- 
gether to perform the entire "get record" 
task. 

The GET Routines 

One GET routine is generated for each pri- 
mary or secondary input file specified in 
the source program. Following is the ac- 
tual object code of each GET routine. 

This routine is entered at the instruction 
labeled GET. The address of DTFA is then 
placed in PR8 . (DTFA is a two-word area. 
The first word contains the address of the 
lOD for the input file associated with 
this GET routine, and the second word con- 
tains the address of the File Input Table 
-4 for this file.) A branch is then taken 
to ADDGT in the Fixed Driver (to GET the 
input record) . 

The GET routine is again entered at the in- 
struction labeled RETUR. The address of 
the instruction LADD is placed in PR8 and 
a branch is taken via PRIO to INPSE in the 
Fixed Driver (to identify the record type 
just read) . 

The GET routine receives control again at 
LADD. The address of Low Field is placed 
in PRIO and, at NEWI , index register 2 is 
loaded with: 

1. The address of Low Field if there are 
no secondary files in the program, or 

2. The address of the primary processing 
block (PPB) if there are secondary files 



102, 









0753 


* 












Y4207530 


OABF 


00 


66000AC5 


0754 


GET 


LDX 


L2 


DTFA 


PUT RETURN 




Y4207540 


OACl 


00 


6E000009 


0755 




STX 


L2 


R8 


ADDRESS IN R8 




Y4207550 


0AC3 


CO 


4C0000A6 


0756 




6 


L 


ADGET 


LINK TO OVERHEAD 




Y4207560 


0AC5 





0000 


0757 


DTFA 


DC 







FILLED IN WITH DTF 


ADDR 


Y4207570 


0AC6 





0000 


0758 




DC 







FILLED IN WITH FILTAB-4 ADDRY4207580 


0AC7 


00 


66000ACD 


0759 




LDX 


L2 


LADD 


PUT RETURN 




Y4207590 


0AC9 


oc 


6E000009 


0760 




STX 


L2 


R8 


ADDRESS IN R8 




Y4207600 


OACB 


00 


4C80000B 


0761 




B 


I 


RIO 


RETURN 




Y4207610 


OACC 


CO 


66800024 


0762 


LADD 


LDX 


12 


DBLOW 


GET LCWFLD ACDR 




Y4207620 


OACF 


00 


6E000C0B 


0763 




STX 


L2 


RIO 






Y4207630 


OAOl 


00 


66000000 


0764 


NEWI 


LDX 


L2 


*-* 


LOWFLD OR BUFFER ADDRESS 


Y4207640 


0AD3 


00 


6580000C 


0765 




LDX 


U 


Rll 


GET ADDR FILTAB 




Y4207650 


0AC5 





C102 


0766 




LD 


1 


2 


PICK UP CGNTPCL LEV 


ADDR 


Y4207660 


0AD6 





D201 


0767 




STO 


2 


1 


STORE IN 2ND LOWFLD 


SLOT 


Y4207670 


0AD7 





C103 


0768 




LD 


1 


3 


PICK UP INPF ADDR 




Y4207680 


GADS 





0202 


0769 




STO 


2 


2 


STORE IN 3RD LOWFLD 


SLOT 


Y4207690 


0AD9 


00 


C48000C9 


0770 




LD 


I 


R8 


PICK UP RI ACOR 




Y4207700 


OACB 





0203 


0771 




STO 


2 


3 


PUT IN 4TH SLCT OF 


LOWFLD 


Y4207710 


OACC 





C006 


0772 


LEOF 


LD 




EOFWD 






Y4207720 


OACC 





EA03 


0773 




OR 


2 


3 


OR WITH RI ADDR 




Y4207730 


CADE 





0203 


0774 




STO 


2 


3 


REPLACE 




Y4207740 


OADF 


00 


4C280000 


0775 


134 


BN 







BRANCH IF EOF 




Y4207750 


OAEl 


CO 


4C0000BE 


0776 




B 


L 


MFLNK 


GO TO OVERHEAD 




Y4207760 


0AE3 





0000 


0777 
0.778 


EOFWD 


DC 




/OCOO 


EOF MASK 




Y4207770 
Y4207780 


Figure 15. Object 


Code of 


the GET Routine 









and this is the GET routine for the 
primary file, or 
3. The address of the first secondary pro- 
cessing block (SIPB) if this is the GET 
routine for the 1st secondary file, or, 
the address of S2PB if this is the GET 
routine for the 2nd secondary file, etc. 

At this time, PRll is pointing to the File 
Input Table entry associated with the re- 
cord type just identified. WordS of the 
table entry (address of the control level 
extraction routine) is placed in the se- 
cond word of the processing block or Low 
Field, whichever is pointed at by index 
register 2. Word4 (address of INPF) of 
the table entry is placed in Word3 of the 
processing block or Low Field. Next, the 
address of the record identifying indicat- 
or is placed in Word4 of the processing 
block (or Low Field) pointed to by index 
register 2. 

At this time, if EOF had been encountered 
when the lOD had attempted to read the 
record, the high order bit of EOFWD would 
have been set to one. If EOF had not 
occurred, the bit would still be zero. 

EOFWD is then ORed with the record identi- 
fying indicator address (Word4 of the 
block pointed to by index register 2) . If 
EOF did occur, a branch is taken to the 
EOFTS routine unless there are secondary 
files in the program. If secondary files 
are present, the branch is taken to the 



MFTST routine. If EOF did not occur, a 
branch is taken to MFLNK in the Fixed 
Driver. 

The MFTST Routine 

The matching fields test (MFTST) routine 
is generated only when secondary files 
exist in the source program. The function 
of MFTST is to compare the matching fields 
of the primary and secondary files in or- 
der to select the proper record for pro- 
cessing and to determine the status of 
the matching record (MR) indicator. 

Another function is to handle all EOF 
conditions on primary and secondary files. 

This routine is pre-coded and may be 
found in RG40. The actual code will not 
be shown here but the logic of the MFTST 
routine is described under Processing 
Multiple Input Files . The reader should 
be aware that Chart KA is a logical chart 
only and does not directly correspond to 
the sequence of instructions found in 
RG40. 



The EOFTS Routine 

The end of file test (EOFTS) routine is 
generated in place of MFTST if there are 
no secondary files specified in the source 
program. For reference, the following is 
the actual code of this routine. 
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OAOC 


o 


COCB 


722 


EOFTS 


LD 




STATU 


EOF REQUESTED ON PRIMARY 


Y4007220 


OAOD 


00 


4C2800B6 


0723 


INT20 


BN 




PRIEO- 


■MFTST YES 


Y4007230 


OAOF 





1004 


0724 


INT53 


SLA 




4 


WAS EOF SENSED ON SECONDARY 


Y4007240 


OAIO 


00 


4C1000CA 


0725 


INT21 


BNN 




PROCF- 


■MFTST NOt GC PROCESS 


Y4007250 


0A12 


00 


C400014F 


0726 


INTR5 


LO 


L 


MRDIS 


IS INTERNAL MR ON 


Y40C7260 


0A14 


00 


4C1C00F4 


7 27 


INTR6 


BNN 




OBEOJ 


NO GO TO EOJ IN OVER HEAD 


Y4007270 


0A16 





701 A 


072P 


INTR7 


B 




PROCF 


GO PROCESS 


Y4007280 


0A17 


n 


COCO 


0729 


SECTS 


LD 




STATU 


HAS 


Y4007290 


0A18 





EOCl 


0730 




AND 




X1800 


EOF 


Y4007300 


0A19 





90C0 


0731 




S 




X1800 


OCCURRED ON BOTH 


Y4007310 


OAIA 


00 


4C1800AB 


0732 


INTR8 


BZ 




INTR5- 


■MFTST YES 


Y4007320 


OAIC 





7014 


0733 


INTR9 


B 




PROCF 


GO PROCESS 


Y4007330 


OAID 





COBA 


0734 


PPIEO 


LD 




STATU 


EOF REQUESTED 


Y4007340 


OAIE 





100 1 


0735 




SLA 




1 


ON SECONDARY 


Y4007350 


OAIF 


00 


4C2800B0 


0736 


INT22 


BN 




SECTS- 


■MPTST YES, CHECK BOTH 
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00 
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L 
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00 
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L 
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L 
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LD 


1 


3 
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00 
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L 


R2 
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Y4007520 


0A3A 


00 
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0753 
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LD 


L 
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0A3C 


00 
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0754 
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L 


R15 


PUT IN SIM REG 


Y4007540 


0A3E 


00 
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RIl 


LD 


L 
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Y4007550 
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AND 
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ZERO EOF BITS 


Y4007560 
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L 


ADDRI 


REPLACE IT 
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00 
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** 


B 


L 
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GO TO OVERHEAD 


Y4007580 
Y40C7590 


Figure 16. Object 


Code of 


the EOFTS 


Routine 







When this routine receives control, it 
tests the high-order bit of the record 
identifying indicator address contained in 
Low Field (Word4). If the bit is on, EOF 
has occurred and a branch is taken to the 
instruction labeled EOJBK in the Fixed 
Driver. If the bit is off, the address of 
the control level compare routine (Word2) 
is taken from the Function Address Table 
and placed in PR15. A branch is then 
taken to PRORC in the Fixed Driver. 

The MFEXT Routines 

A matching fields extraction (MFEXT) rou- 
tine is generated for each record type 
specified on the input specifications of 
the source program. Each routine extracts 
the matching fields for its record type 
and places them in the hold area of the 
proper processing block (PPB, SIPB, etc) . 
The hold area is then compared to the hold 



area in the Low Field Block. If a collat- 
ing sequence error occurred, a branch is 
taken to ERR+10 in the Fixed Driver. 

After extracting the fields, the routine 
branches into the MFTST routine. If the 
record type has no M1-M9 fields, the rou- 
tine consists solely of a branch to the 
MFTST routine. 

If there are no secondary files present, 
but M1-M9 fields are specified for the 
primary file, the MFEXT routine (s) places 
the fields in the PS hold area, and 
branches to the EOFTS routine. 



CORE STORAGE ALLOCATION 

Now that tables, work areas, and some of 
the main routines of RPG object programs 
have been discussed, it should be helpful 
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to see where all these items appear in 
core storage when an object program is in 
residence. Some of the routines shown on 
the Core Storage Allocation Map (Figure 17) 
have not as yet been discussed, and, before 
tracing an object program through a full 
cycle, each section of the core map will 
be reviewed briefly. The numbers in the 
narrative correspond with the numbers in 
Figure 17. 

1. Pseudo registers PR0-PR15: These 16 
words are present in every RPG object 
program and are used for passing ad- 
dresses and other parameters between 
the various object program routines. 

2. CNTRL B L START: This long branch in- 
struction is the entry point into the 
object program. START is a label in 
the OPEN/CLOSE routine. 

3. Function Address Table (FAT): This ta- 
ble is present in every RPG object pro- 
gram and contains the address of var- 
ious RPG routines (see Table 11) . 

4. Fixed Driver: This routine is gener- 
ated in every RPG object program and 
functions as the main linkage driver 
for the entire object program. 

5. Assigned indicators: Indicators MR, 

00, OF, OV, IP, L0-L9, LR, and H1-H9 
are always generated in this area and 
in this order. These indicators are 
followed by any other indicators de- 
fined in the source program. Each in- 
dicator uses one word of core storage. 
If on, the indicator will be set to 

0001. If off, the indicator setting 
will be 0000. 

6. Assigned fields: Space is allocated 
here for any fields defined in the 
source program. One word is allocated 
for each character position in the 
field; in addition, an attribute word 
is generated for each field. (Refer 
to Appendix A: Object Time Data For- 
mat for a complete description of ob- 
ject time data fields.) 

7. Assigned literals: Space is allocated 
here for any literals defined in the 
source program. 

8. Control level hold areas (Old Hold and 
New Hold) : If control levels were 
specified in the source program, the 
hold areas for control level process- 
ing are generated here. 

9. Card and printer lODs: One input/out- 
put driver (lOD) is generated for 
every input or output file specified 
in the source program. The lOD for a 
given file is the routine which pro- 
vides linkage to a library subroutine 
which will perform the actual I/O 
operation. 

10, Disk lODs: If disk files are specified 
in the source program, their lODs are 
generated immediately following any 
card and/or printer lODs. 



11. Tables, table load and d\amp routines: 
For every table file specified in the 
source program the following storage 
areas will be allocated. 



Table 
Area 



Table 

Load 

Routine 



Table 
Dump 
Routine 



■The area where the table will be loaded. 



■The routine that reads the table into core. 



I The routine that puts out the table 
I (generated only if needed). 



12. Record Address File (RAF) routine: If 
the primary or one of the secondary 
files is to be processed by means of 

a record address file, the RAF routine 
will be generated here. Further in- 
formation on RAF processing is con- 
tained in Processing With an RA File . 

13. Chaining routines: If any files speci- 
fied in the source program are to be 
retrieved by CI, C2, or C3 chaining, 
the chaining routine for each of these 
(a routine for CI, if used; another 
routine for C2, if used; etc.) will be 
generated here. A description of 
chaining routine logic may be found in 
the section Processing a File by CI , 
C2, or C3 Type Chainin"gT If no CI, 
C2, or C3 type chaining is specified, 

a branch to detail calculations is 
generated. 

14. Move input fields (INPF) routines: A 
move input fields routine is generated 
for every input record type specified 
in the source program. Each routine 
extracts the defined fields from the 
input record and moves them to the 
field areas allocated. 

15. Control level compare (COMP) routine: 
If control levels are specified in the 
source program, the routine that de- 
termines whether a level break has oc- 
curred and then sets the appropriate 
indicators is generated immediately 
following the INPF routines. 

16. Numeric Sequencing routine: Space is 
allocated here for the numeric se- 
quencing routine if input record types 
have numeric sequencing specified in 
the source program. A separate routine 
is generated for each file which has 
this specification. This routine en- 
sures that the proper record type has 
been read at the proper time. More 
information is contained in the "NU- 
MERIC SEQUENCING" section of this 
publication. 



Part Two: 1130 RPG Object Program 105 



Generated by: 


0. 


RG58 


1. 


RG58 


2. 


RG58 


3. 


RG58 


4. 


RGIO 


5. 


RG12 


6. 


RG14 


7. 


RG17 


8. 


RG24 


9. 


RG28 ISAM ) 




RG26 Sequential 


10. 


RG32 


n. 


RG34 


12. 


RG34 


13. 


RG36 


14. 


RG38 


15. 


RG38 


16. 


RG38 


17. 


RG40 


18. 


RG40 


19. 


RG40 


20. 


RG42 


21. 


RG42 


22. 


RG44 


23. 


RG46 


24. 


RG52 


25. 


RG54 


26. 


RG54 


27. 


RG54 


28. 




29. 


RG58 


Open/ 
Close 




Routines 




30. 




31. 




32. 



One word unused 



Pseudo registers PRO-PR 15 



CNTRL B L START 



Function Address Table (FAT) 



Fixed Driver 



Assigned indicators 



Assigned Fields 



Assigned Literals 



Old Hold and New Hold for Control Levels 



Card and printer lODs 



Disk lODs 



Tables, table load and dump routines 



RAF routine 



Chaining routines 



Move input fields (INPF) routines 



Control level compare routine 



Numeric Sequencing routine 



Determine record type (INPR) and control level extraction routines 



Low Field and processing blocks 



EOFTS or MFTST routine 



MFEXT routines 



File Input Tables 



GET routines 



LOKUP and CHAIN routines 



Detail, then Total calculations 



Move output fields routines 



Central Output Driver (COD) 



Test indicators routines 



Output Tables (DTAB, TO TAB, OTAB and EXTAB) 



OPEN branch table 



Linkage to load table routines 



Linkage to heading and detail lines 



CLOSE branch table 



Linkage to EOJ 



Library subroutines 



Core Storage left over 



Transfer Vector 



Figure 17. Core Storage Allocation MAP 
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17. INPR routines: An INPR (determine re- 
cord type) routine is generated for 
each record type specified in the 
source program. These routines check 
the record ID characters in the asso- 
ciated input record to determine if 
the record type is being processed. 
If so, the address of the resulting 
indicator is passed 'back to the GET 
routine. 

If a record type has control level 
fields, the control level extraction 
routine for that record type is gen- 
erated immediately following the INPR 
routine for that same record type . 
The control level extraction routine 
takes the level fields from the input 
record, places them into the New Hold 
area, and branches to the control level 
compare routine . 

18. Low Field and processing blocks: Space 
is allocated here for the generation 
of Low Field and the file processing 
blocks (see Tables and Work Areas for 
further information) . 

19. EOFTS or MFTST routine: If no second- 
ary files are present. Low Field is 
followed by the EOFTS routine. If 
secondary files are present, the pro- 
cessing blocks allocated for them are 
followed by the matching fields test 
(MFTST) routine which carries its own 

EOF code. 

20. MFEXT routines: A matching fields ex- 
traction routine is generated for each 
input record type. If the record type 
has no matching fields specified, a 
branch instruction is generated to the 
MFTST routine. 

21. File Input Tables: An FIT is generated 
for each input file specified in the 
source program (refer to Tables and 
Work Areas for further information) . 

22. GET routines: A GET routine is gener- 
ated here for each primary and second- 
ary file specified in the source pro- 
gram. 

23. LOKUP and CHAIN routines: If LOKUP is 
specified in the source program, the 
LOKUP routine is generated here. If 
CHAIN is specified, its corresponding 
routine would also be generated here. 

24. Detail calculations: All detail calcu- 
lations specified in the source pro- 
gram are generated here. 

Total calculations: All total calcu- 
lations specified in the source pro- 
gram are generated immediately follow- 
ing the detail calculations. 

25. Move output fields routines: A move 
output fields routine is generated for 
each output line specified in the 
source program. Each routine moves 
the fields for its associated line in- 
to the output buffer. 

26. Central Output Driver: The COD is the 
routine that receives control each 



time a line is to be put out. Further 
information is contained in the sec- 
tion Output Lines Routines . 

27. Test indicators routines: A test indi- 
cators routine is generated for each 
output line specified in the source 
program. Each of these routines tests 
the indicators conditioning its asso- 
ciated output line and, if the indi- 
cators are on, provides linkage to per- 
form services such as stacker select, 
or carriage control functions, if 
necessary, directly to the COD to put 
out the line. 

If the indicators are off, the Fixed 
Driver is given control. 

28. Output Tables: Space is allocated here 
for the generation of the output ta- 
bles, DTAB, TOTAB, OTAB , and EXTAB 

(see Tables and Work Areas ) . 

29. OPEN/CLOSE Routine: This routine re- 
ceives control from the CNTRL instruc- 
tion. If disk files are present in 
the program, the routine links to the 
OPEN entry point of each disk lOD. Af- 
ter all files are opened, this routine 
links to the table load routines, if 
present, to load the tables. After 
the tables are loaded, a branch is 
made to the heading and detail lines 
entry in the COD. The OPEN/CLOSE rou- 
tine also contains code which links to 
the CLOSE entry points of each disk 
lOD which culminate in EOJ. 

30. Library Subroutines: All library sub- 
routines used by the mainline program 
follow the OPEN/CLOSE routine. These 
routines are all described in the sec- 
tion Library Subroutines . 

31.&32. Any unused core storage will fall 
between the library subroutines and 
the Transfer Vector (high core) used 
for linking to the subroutines. 



TRACING AN OBJECT PROGRAM 

In this section the operation of an object 
program will be traced through its full 
cycle. The source code that generated 
this object program is shown in Figure 18. 

In following the step by step object pro- 
gram description, it may be helpful to re- 
fer to the preceding sections of this 
publication whenever clarification or 
additional information is necessary. 
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Figure 18. Typical Source Code for Object Program Generation 
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Initialization 

• The monitor passes control to the in- 
struction labeled CNTRL. 

• CNTRL branches to START, which is the 
beginning of the OPEN/CLOSE routine. 
Since there are no disk files and no 
table files, this routine immediately 
links to the heading and detail lines 
entry point of the COD. This entry 
point is BOOOO. 

Heading and Detail Lines 

(STEP3) 

• At BOOOO, PR8 is loaded with the ad- 
dress of BOOOl. PRIO is loaded with 
the address of ALPSE in the Fixed 
Driver. PRll is loaded with the ad- 
dress of DTAB-3. A branch is then tak- 
en to ALPSE in the Fixed Driver. 



• At ALPSE, PRll is incremented by 3 to 
point at the first entry of DTAB. The 
address of the test indicators routine 
for the output line specified in the 
source program is taken from Wordl of 
the table entry and a branch is made 
to the routine . 

• The output line in this program is con- 
ditioned by indicator 01, so the test 
indicators routine determines whether 
01 is on. Since, at this time, an in- 
put record has not yet been read, 01 
will be off. The test indicators rou- 
tine will then return to ALPSE in the 
Fixed Driver. 

• At ALPSE, PRll is again incremented by 
3, and now points at the dummy entry 
in DTAB since only one detail line is 
specified in the source program. 
Wordl of this dummy entry (address of 
BOO 20 in the COD) is taken and a branch 
is made to that addiTess. 

• BO 020 is the entry point in the COD 
that is used for wrapping up heading 
and detail lines. The IP indicator 

is turned off and a branch is taken to 
GETRC in the Fixed Driver. 

Get Input Record 

• At GETRC the LR and halt indicators are 
tested. None are on as yet, so all 
level indicators are set off and re- 
cord identifying indicator 01 is set 
off. The address of the GET routine 
for the input file is then taken from 
Wordl of Low Field (LOWED) , placed in 
PR8, and a branch is taken to the GET 
routine. 



• The GET routine then loads PR8 with the 
address of a two-word area. Wordl of 
that area contains the address of the 
input/output driver (lOD) for the in- 
put file, and Word2 contains the ad- 
dress of the File Input Table -4 for 
this input file. A branch is then 
made to ADDGT in the Fixed Driver. 

STEPIO) 

• At ADDGT the File Input Table -4 ad- 
dress is placed in PRll, the lOD ad- 
dress is placed in PR15, and the con- 
tents of PR8 are placed in PR14. The 
address of the I/O area for the input 
file is taken from the lOD (Word4) and 
placed in PR2 . The read entry point of 
the lOD is taken from wordz of the lOD, 
the address of INPSE in the Fixed 
Driver is placed in PRlO, and a branch 
to the read entry point of the lOD is 
executed. Note that PR8 and PR14 still 
contain the address of the two-word 
storage area (which contains the ad- 
dress of the lOD and the File Input 
Table -4 for this file) . 

• For this object program, the lOD links 
to the library subroutine CARDO and 
the first card is read into the I/O 
area pointed at by PR2 . The lOD then 
checks to determine whether EOF oc- 
curred. If not, a branch is taken to 
the contents of PR14+2. If EOF did 
occur, a branch is taken to the con- 
tents of PR14+8. Assuming that EOF 
did not occur, the resulting branch 
takes us into the GET routine at 
DTFA-l-2 (RETUR) . 

Determine Record Type 

• At RETUR the address of LADD is placed 
in PR8 and a branch is taken to INPSE 
in the Fixed Driver. Note that PRll 
still points at the File Input Table 
-4. 

• At INPSE, PRll is incremented by 4 to 
point at the first entry of the File 
Input Table. The address of the input 
record routine (INPR) is taken from 
the table and a branch is made to 
that address. 

• The INPR routine starts by checking 
the 50th character of the record now 
in the input I/O area. If it is not a 
W, the routine will return to the Fixed 
Driver at INPSE.- Assuming that the 
record read in does have a W as the 
50th character, INPR loads PR8 with 
the address of record identifying in- 
dicator 01. INPR then branches back 

to the GET routine at the instruction 
labeled LADD. 
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(STEP15) 

• At LADD the address of LOWFD is placed 
in PRIO. Word3 of the File Input 
Table entry pointed to by PRll is then 
placed in Word2 of L0V3FD, and Word4 of 
the FIT entry is placed in Word3 of 
LOWFD. The record identifying indi- 
cator address (still in PR8) is placed 
in Word4 of LOWFD. (Note that if 
multiple input files were being pro- 
cessed, the preceding information 
would not be put in LOWFD at this 
time; it would be placed in the pro- 
cessing block associated with the GET 
routine that has control.) 

The routine then ORs the EOFWD with the 
record identifying indicator address 
and places the result back in Word4 of 

LOWFD. EOFWD initially contains /OOOO 
if EOF is required for this file; /4000 
if not required. When EOF actually 
does occur, the lOD which processes the 
input file sets the high-order bit of 
EOFWD to 1. 

If the high-order bit of EOFWD is on, a 
branch to the EOFTS routine is taken. 
In this case, EOF did not occur and 
the bit is still on so a branch will be 
taken to MFLNK in the Fixed Driver. 

Note that PRll still points to the File 
Input Table entry for the record type 
being processed. 

• At MFLNK, Word2 of the File Input Table 

(address of the MFEXT routine for this 
record"^ type) is taken and a branch is 
executed to that address. 

• Since there are no M1-M9 fields in this 
record type, the MFEXT routine for this 
file consists of a branch to EOFTS. 



• At PRORC the address of the record 
identifying indicator (01 for this re- 
cord) is taken from LOWFD and the indi- 
cator is set on (/OOOl) . A check is 
then made to determine if there is a 
COMP routine in this program. There is 
none since no control levels were 
specified in the source program, so a 
branch is taken to TOTSW in the Fixed 
Driver. 

Total Calculations 

• At TOTSW a check is made to determine 
if this is the first cycle of the ob- 
ject program. This time it is, so in- 
stead of branching to total calcula- 
tions, a branch is executed to GETIF 
in the Fixed Driver, 

• At GETIF the LR indicator is tested. 
It is not on at this point so Word3 
(address of move input fields routine 
filled by steplS) is taken from LOWFD 
and placed in PR8. The I/O area ad- 
dress is taken from the reader lOD and 
placed in PR2. The internal matching 
records indicator (0 at this time) is 
stored in the MR indicator and a 
branch is then taken to LABEO in the 
Fixed Driver. 

Move Input Fields 

• At LABEO a branch is executed via PR8 
to the move input fields routine for 
the record type now in the I/O area. 

• The move input fields routine then ex- 
tracts FLDA from the I/O area and puts 
it in its assigned field area. This 
routine then obtains the address of 
the chaining routine from CHANl in the 
Function Address Table and branches to 
that routine . 



Test for Control Level Break 

• At EOFTS the high-order bit of Word4 of 
LOWFD is tested (note that this bit was 
set by SteplS above). If the bit is 
on, EOF has occurred and a branch is 
taken to EOJBK in the Fixed Driver. 

In this case, EOF did not occur and the 
two high-order bits of Word4 in LOWFD 
are zeroed out. Then the address of 
the control level compare (COMP) rou- 
tine is taken from CTLFD in the Func- 
tion Address Table and placed in PR15 . 
A branch is then taken to PRORC in the 
Fixed Driver. Note that PRlO still 
contains the address of LOWFD. 



Chaining Routine 

• Chaining was not specified in this 
source program so only a B I DCALC 
instruction was generated. This branch 
goes to the detail calculations routine, 

Detail Calculations 

• No calculations were specified in the 
source program so only a B I HDAD was 
generated. This branch goes to BOOOO 
which is the heading and detail lines 
entry point to the COD. 

The object program has now completed a 
full cycle and is back at stepS above. 
Upon entering stepS this time, however, 
output indicator 01 is on, so the line 
will be put out. 
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PROCESSING WITH AN RA FILE 

In the object program just described there 
was only one input file. Suppose that the 
file resided on disk and it was decided to 
retrieve it randomly by using a record ad- 
dress file. In this instance, the source 
program might appear as ,follows (Figure 
19). 

Again referring to the previous object 
program, processing with an RA file would 
cause these changes: 

1. The RAF routine would be included in 
the object program. 

2. A card lOD would be generated for RAF IN 
followed by a disk lOD for DISKIN. 

3. The constant labeled DTFA in the GET 
routine for the primary file would no 
longer point to the lOD for that file. 
Whenever a file is being processed via 



an RA file, this constant points at 
RAFAD-1 in the Function Address Table. 

The program logic for this object program 
would be very similar to the logic of the 
previous program. Note, however, that at 
steplO a branch is not taken to the read 
entry point of the primary file lOD. 
Since DTFA now points to RAFAD-1, a branch 
is taken to the RAF routine. 

The RAF routine will get a record address 
field and then link to the read entry 
point of the primary file lOD. This -means, 
in effect, that any request for the pri- 
mary file would be intercepted by the RAF 
routine. 

The flowchart provided (Chart HA) illus- 
trates the logic used by the RAF routine 
to process a sequential file randomly. 
The RAF routine is a pre-coded routine 
found in RG34. 
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File Description Specifications 
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i^m*^^X^^t^^******* 



**««««*«***«*«* 



*«4i*4>B1 ********** 

* * 

* S»?B BETOEII * 
**DDBBSS OF GET * 

* BOUTIME * 

* • 



*4i*««C1 *»*«*««*«* 



«***««««*«**«**«* 



«>|i*«<il)1«>|i«*«**«*i» 



*««i»«:|i*4l««««*«*** 



4ii|i«*«g2********** 



->*SET OP imxaGE * 



.♦ 

* HO 



PI *. 

. ♦ OS- *• 
.* PBOCBSSBD *. MO 

•PIEID IM X/0,* 

♦. BOFFBB .* 
♦. .* 
*. .* 
* TBS 



***«**•«*«•«*«««« 



«*4i««r2********** 

♦lOD ♦ 

♦-♦-*-♦-»-•-*-*-• 

->* * 

*6ET Bt BECOBD * 

• * 



♦100 * 

*-♦-*-*-♦-♦-«-*-* 
*GET BECOBO FBOB* 

♦ 'TO* PIIE * 

♦ » 



«4i««*c3********** 



♦♦♦*4i******«*««4>« 



4i«i|i**4>«««««««4i* 



4i««««(31 «*«***4i*«* 



♦ «4i««**>|i4i*4>***«*« 



• «**4iH1 ********** 

• * 
*PIACB I/O »BB* ♦ 
*&EOBBSS IB PB2 * 



*««*4i««»4i««*««««4i 



«*«**Jt *♦«*«♦•*** 



•BBCOBD HONBEB * 
♦ ♦ 



Chart HA. RAF Routine 
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PROCESSING BY CI, C2 , OR C3 TYPE CHAINING 

It has been stated before that a move in- 
put fields routine is generated for every 
input record type. These routines extract 
defined input fields from the I/O area and 
move them to their assigned areas. When a 
move input fields routine has completed 
its function, a branch is always taken to 
the chaining routine address, which is 
CHANl in the Function Address Table, 
whether chaining has been specified or 
not. If one of the extracted fields is a 
chaining field, the move input fields rou- 
tine sets on its corresponding internal 
indicator (CI, C2, or C3) . 

Then, when the chaining routine receives 
control, it accomplishes the following: 

• gets the chained record 

• determines the record type 

• moves the chained record's input fields. 

The move input fields routine will then re- 
turn to the beginning of the chaining rou- 
tine and the process will be repeated if 
any of the indicators CI, C2, or C3 are 
on. If none of the three indicators are 
on, the chaining routine links to detail 
calculations. 



Refer to Figure lA for the logic of the 
chaining routine . 



CONTROL LEVEL PROCESSING 

A short control level extraction (CLEV) 
routine is generated for any record type 
that is specified with L1-L9 fields. A 
CLEV routine simply extracts the level 
fields from the I/O area and places them 
in their proper location in New Hold. 

If, for example, an RPG source program had 
control levels LI, L2 , and L4 specified. 
Old Hold and New Hold would appear as 
follows: 





Old^H 


old 






New Hold 




/ 






\ / 




\ 


A 
Word 


L4 


L2 


LI 


A 
Word 


L4 


L2 


LI 



Once a control level extraction routine 
is finished placing the level fields, it 
branches to the control level compare 
(COMP) routine. Chart JA shows how COMP 
would be generated for a program which had 
control levels LI, L2, and L4 specified. 
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* EHTBR CHAIMG * 

* ROUTINE * 

* ♦ 



* * 

* B2 *-> 

« ♦ 

B2' 



CI ON 

*. .*' 

♦ . .* 
* YES 



*****C2********** 



CHAINING BOOTINB POE C2, 
IP NEEDED, IS IDENTICAL 
TO Cl 



«]|i4i«******4i4>*«4>** 



* lOD * 
♦_♦_♦-♦-*-*-*-♦-♦ 

->*GET CI CHAINED * 

* EECOHD * 

* * 



CHAINING RODTINB FOR C3, 
IF NEEDED, IS IDENTICAL 
TO C1 



♦♦♦♦J 1 ♦♦*****♦* 

♦ * 

♦ B I DCALC * ♦ 

♦ * 

* THE CHAINING ROnTINE 
BRANCHES TO DETAIL 
CALCOLATIONS WHEN ^^„ 
CHAINING IS COMPLETED 



♦**»#I)2 ********** 

♦ * 

* GET ADDH OF * 
*FIT-« FOR THIS * 

♦ FILE * 

* * 
**4<4i«*4>*4i«4>****** 



♦♦♦**E2 ********** 



4i>|i**4i*4***4i****** 



♦♦♦♦♦F2********** 



«*«««************ 



FIXED DRIVE 
*INPSE - ^ ^ * 

* DETERHINE * 

* RECORD TYPE * 

* * 
*««««*4<********** 



->* 



♦♦♦♦*G2********** 

* * 

* SET ON * 

* RESULTING ♦ 

* INDICATOR * 

* * 
«i|c4i«****«*«****** 



4i««*«H2********** 

♦ ♦ 

* GET INPF ♦ 

* ADDRESS FILE *- 

♦ FIT ENTRY ♦ 



4ii|i«**4>*****«***** 



♦♦♦♦♦H3********** 

:i5!5-*-*-*-*-*-: 
— >♦ * 

* MOVE FIELDS * 

* * 
41 ,»***«««*«**«**** 



Chart lA. Logic of the Chaining Routine 
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» EBTBH COMP * 
► BODTIIIE * 



*****B1 ********** 

* * 

* LOiD »DOR OF * 
*IOT»L CiLCS IH * 

* PB15 ♦ 

* * 
***************** 



****»D1 ♦**»♦♦♦*•* 

* * 
♦LOAD PB15 WITH * 

* ADDS OF GETIF ♦ 
♦IN FIXED DHIV * 

* * 
***************** 



♦♦E2^^^^+^* 
* * 

♦ SET OH m, 
->♦ L3, 12, l1 



.♦OLD HOLD L1*. K 
.' HEW HOLD L2.^- 

♦• .♦ 



**** J 1 ********* 

♦ 4 
♦EXIT VIA PB15 * 

* * 
*************** 



*********** 



**F2******* 

* * 

* • 
->*SET OH L2, LI *- 

* ♦ 

* • 
*********** 



**G2******* 

* * 
* 

->• SET OH LI 

* 

* * 
*********«4i 



•****H2 ********** 



***************** 



Chart JA COMP Routine 
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PROCESSING MULTIPLE INPUT FILES 

Previous sections of this publication have 
described how the object program performs 
output operations, input operations for a 
single file, determines record type, and 
handles control level, chained and RA file 
processing. At this time it should be 
helpful to describe how the object program 
processes multiple input files with match- 
ing records. 

The input specifications in Figure 20 des- 
cribe a source program that contains a 
primary file and one secondary file. 

Figure 21 shows the routines that would 
be generated to process these files. 

A. The Low Field Block, PS, primary pro- 
cessing block (PPB) , and one secondary 
processing block (SIPB) are generated. 
They would appear in core storage as 
follows: 



LFB 
PS 
PPB 
SIPB 



addr 

of MFTST 








< Ml Hold — > 










addr of 
GET routine 








< — Ml Hold— > 


addr of 
GET routine 








< — Ml Hold— > 



D. 



E. 



The MFTST routine would be generated 
immediately following SIPB. 
A matching field extraction (MFEXT) 
routine for record type 01 and another 
for record type 02 would be generated 
after the MFTST routine. 
Two File Input Tables, one for each in- 
put file, are generated and follow the 
MFEXT routines. 

Two GET routines are generated. Wordl 
of PPB points to the GET routine for 
the primary file; Wordl of SIPB points 
to the GET routine for the secondary 
file. 



Low Field Block, PS, 
PPB and SIPB 



MFTST Routine 



MFEXT Routine 



FILE INPUT TABLES 



GET routine for 
primary file 



GET routine for 
secondary file 



Figure 21. Routines Generated to Process 
Multiple Input Files 



Part Two: 1130 RPG Object Program 117 



steps 1 through 13 shall attempt to des- 
cribe the logic involved in getting an 
input record and selecting it for process- 
ing. In following this description, it 
again may be helpful to refer to preceding 
sections of this publication whenever 
clarification or additional information is 
necessary. 

1. The instruction labeled GETRC in the 
Fixed Driver receives control from the 
COD after heading and detail lines are 
completed. 

2. Wordl of the Low Field Block is ob- 
tained and placed in PR8 . (Initially, 
this word contains the address of 
MFTST.) 

3. A branch is made via PR8 to the MFTST 
routine (see Chart KA for a better 
understanding of the MFTST routine). 

4. At MFTST, since this is the first 
time through the routine, the entire 
PPB is moved into the Low Field Block 
and a branch is made back to GETRC in 
the Fixed Driver. 

5. At GETRC, Wordl of Low Field (which 
now contains the address of the pri- 
mary file GET routine) is taken and 
placed in PR8, and a branch to the 
GET routine is then executed. 

6. PR8 is then loaded with the address of 
DTFA (refer to The GET Routines ) and 

a branch is made to ADDGT in the Fixed 
Driver. 

7. At ADDGT the address of the File Input 
Table -4 is placed in PRll. Linkage 
to the lOD is initialized and the ad- 
dress of INPSE is placed in PRIO. A 
branch is then taken to the read entry 
point of the lOD for the primary file. 

8. The GET routine is again entered, this 
time at RETUR, which loads PR8 with 
the address of LADD and then branches 
via PRIO to INPSE in the Fixed Driver. 

9. At INPSE, PRll is incremented by 4 to 
point at the first entry of the pri- 
mary File Input Table. The address 
of the INPR routine is obtained and a 
branch is made to the INPR routine 
which will check column 1 of the input 
record for a P. If a P is present 
(for this example, assume that it is), 

PR8 is loaded with the address of re- 
cord identifying indicator 01 and a 
branch is made back to the GET routine 
at the instruction labeled LADD. 
10. At LADD the address of Low Field is 
placed in PRIO and Word3 of the File 



Input Table entry is placed in Word2 
of the PPB. Word4 of the FIT entry 
is then placed in Word3 of the PPB. 
The address of record identifying in- 
dicator 01 is placed in Word4 of the 
PPB. Then, since EOF has not occurred, 
a branch is taken to MFNK in the 
Fixed Driver. 

11. At MFLNK the address of the MFEXT rou- 
tine for the record type identified 
with indicator 01 is taken from Word2 
of the File Input Table entry still 
pointed to by PRll, and a branch is 
made to that extraction routine. 

12. The MFEXT routine then takes FIdI from 
the I/O area and puts it in the PPB 
hold area. Next, MFEXT compares the 
PPB hold area with the Low Field hold 
area in order to check for collating 
sequence errors. In this case there 
are none, so a branch is taken to the 
MFTST routine. 

13. When the decision "Has a record been 
read from all the files?" has been 
made, the decision will be "no", there- 
fore SIPB is moved into the Low Field 
Block and a branch is made to GETRC in 
the Fixed Driver. 



The program is now back at Step5 of the 
cycle, but now the address of the GET rou- 
tine for the secondary file is in Wordl of 
Low Field. 

At this point a primary record has been 
read into core storage, its record type has 
been determined, and the addresses of the 
control level extraction routine, the move 
input fields routine, and the resulting 
indicator have been placed in the PPB. 
Also, the Ml field has been extracted and 
placed in the PPB hold area. 



Now, steps 5 through 12 will be executed 
again in order to read a record from the 
secondary file, determine its record type, 
and fill SIPB with the proper information. 
This leads back to the MFTST routine that 
will decide which record should be pro- 
cessed. The information contained in the 
processing block for the chosen record 
will be moved to the Low Field Block, and 
a branch will be taken to PRORC in the 
Fixed Driver where normal processing will 
continue as it would for a sinqle input 
file. 
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» ENTEB HFTST * 
* BOOTIHE * 



4<«««*B1 '•"K* '•"•"•"•<*'•"<■ 



*4i****4i*:»«««**;|(*:«i 



INSUO .*. 

CI *. 
.* *. 
.*FIEST TIME ♦. YES 
*. ENTERED .* 



EO J - * , 


. ♦ 


*. .♦ 


*. .* 


* HO **** 




* * 




* F3 ♦ 




* * 




♦**♦ 






.*. 


El ♦. 


* *. 


HiTCHISG ♦. HO 


FIE] 


,DS . * 



*^*i**C2********** 



II**************** 



♦***D2 ***♦♦♦*♦♦ 

*EXIT TO GETBC * 

* * 

*************** 



► TES 



•n 



•♦•*F2 ***♦*♦*♦* 

* * 
♦EXIT TO PBOHC * 

* 4 
*************** 



**** 

* i 

* G1 *-> 

* t 
**** 

*****Q ■[********** 

* * 

* FIHD SEC PB * 

* WITH LOWEST * 

* HOLD iBEA * 

* ♦ 
***************** 



HI *. 

.*PB HOLD*. 

.*AB£t < PPB 

. HOLD ABEA 



**** 

* 4 

* B3 * 

* * 
**** 



*****j'\********** 
* MOVE PPB IHTO ♦ 
♦LOWFD. SJVE PEI* 
*HOLD ABEA IH PS* 



***************** 



*****J12********** 



***************** 



.* PS = HOLD 1 
. ABEA OF THIS 
♦.SEC FILE .* 



**** 
l> * 

* B5 t 
l< 4 



*«**4B3********** 

♦ 41 

♦ HOVE PB FOE ♦ 
♦HEXT FILE IHTO * 

♦ LOW FIELD ♦ 

♦ * 
***************** 



****QJ********* 

* * 

♦EXIT TO GETRC * 

* ■ 4 
*************^* 



*****^n*********^ 

* * 

* SET OFF ♦ 

* IHTESNAL ME ♦ 

* IHDICATOE ♦ 

* * 
****************^ 



♦♦♦♦Ct ♦♦♦♦♦♦♦*♦ 

* * 
♦EXIT TO PROEC * 

* * 
*************** 



**** 

* * 

♦ B5 ♦ 
4i * 

**** 

1 

4i*4>44B5*** ♦♦♦♦♦•♦ 

* * 

* SET OFF ♦ 

* ISIEBSAL HB ♦ 

* IHDICATOE ♦ 

* * 
***************** 



♦♦♦♦C5 ♦♦♦♦♦♦♦♦♦ 

* 4 
♦EXIT TO PBOEC 4 

* 4 
*************** 



,* 
*. EO 
4>. 
*. 
*. 

4'*4>* 

* * 

* F3 ♦-> 

4i**4< 

.♦. 

F3 ♦. 

.♦ ♦, 

.♦AHY SEC PB ♦. 

►. HOLD ABEA = . 



->*.PEIMABy FILE .♦- 



****4<E5 ♦♦♦♦♦♦♦♦♦♦ 



***************** 



**** 

* * 

* G1 ♦ 

* * 
**** 



PS 



. * 



♦♦♦♦♦G3^^^ ♦♦♦♦♦♦♦ 



***************** 



♦♦♦♦H3 ♦♦♦♦♦♦♦♦♦ 

* 4 
♦EXIT TO PBOEC * 

♦ 4 
*************** 



*****32********** 



****************t, 



****j^2********* 

* * 
♦EXIT TO PROBC ♦ 

♦ » 
*************** 



****QH********* 

* * 
♦EXIT TO EOJBK ♦ 

♦ 41 
*************** 



Chart KA, MFTST Routine 
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NUMERIC SEQUENCING 

If a numeric record type is present, NUSEQ 
routine supplies object code for a se- 
quence-check of the various record-types 
(columns 15-16 of the input specification 
sheet) . If all records have an alpha en- 
try in columns 15-16 of the input specifi- 
cation, this routine is not generated. 

The address of routine NUSEQ is placed in 
Q (sequence) position of the compressed 
record (Table 8) . The following object 
code is put out for NUSEQ. 









1003 


* 










0A8C 


00 


C4000000 


1004 


NUSEQ 


LD 


L 


Rll 




0A8E 


00 


D400000A 


1005 




STO 


L 


R9 




0A9C 


00 


6C000010 


1006 




STX 


L 


R15,0 


BALR 15, 


0A92 


00 


C4000C00 


1007 


NOPX 


LD 


L 


*_* 


USED AS A SWITCH 


0A94 


00 


6580000A 


1008 




LDX 


11 


R9 




0A96 





0101 


1009 




LD 


1 


1 


GET 2ND ENTRY 


0A97 


00 


D400000C 


1010 




STO 


L 


Rll 


PUT IN Rll 


OA99 





7000 


1011 


SW 


B 




* 


BRANCH-NCP 


0A9A 


00 


668000CC 


1012 


PASS 


LDX 


12 


Rll 




0A9C 





C201 


1013 




LD 


2 


1 


IS IT 


0A9D 





9205 


1014 




S 


2 


5 


AN OR,QQ 


0A9E 





7204 


1015 




MDX 


2 


4 


BUMP POINTER 


0A9F 


00 


6E00000C 


1016 




STX 


L2 


Rll 




OAAl 


00 


4C180A9A 


1017 


A 


BZ 




PASS 


ITS AN OR 


0AA3 





C014 


1018 


SWOFF 


LD 




BCO 


SET 


0AA4 





D0F4 


1019 




STO 




SW 


TO NCP 


0AA5 


00 


C400000C 


1020 


P4 


LD 


L 


Rll 




0AA7 





DlOl 


1021 




STO 


1 


1 




0AA8 


00 


66000120 


1022 




LDX 


L2 


ERRl 




OAAA 


00 


6E00000F 


1023 




STX 


L2 


R14 




OAAC 


00 


6680000C 


1024 




LDX 


12 


Rll 




OAAE 





C201 


1025 




LD 


2 


1 




OAAF 





900A 


1026 




S 




X5C5C 


END OF FILTABS 


OABO 


00 


4C200033 


1027 




BNZ 




ALPSE+2 


NO, GO TO 
OVERHEAD 


0AB2 


00 


6680000A 


1028 




LDX 


12 


R9 




0AB4 





C202 


1029 




LD 


2 


2 




0AB5 


00 


D400000C 


1030 




STO 


L 


Rll 




0AB7 





70ED 


1031 




B 




P4 


GO BACK 


0AB8 





7000 


1032 


BCO 


B 




* 


OBJECT TIME 
SWITCH 


0AB9 





7009 


1033 


BCF 


B 




*+9 


OBJECT TIME 
SWITCH 


OABA 





5C5C 


1034 


X5C5C 


DC 




/5C5C 


CHECK END OF 
FILTABS 


0396 







1035 


H0LD9 


EQU 




/38E+8 




015E 







1036 
1037 


L9AD 

* 


EQU 




INTMR+15 
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If a numeric code is assigned under Se- 
quence (columns 15-16) , an entry of 1 or 
N must be made in Number (column 17) ^ and 
the following object code is put out. 



1 Mandatory 

(Column 17 is 1, and colximn 18 



followed by 'OR' 



not followed by 'OR' 



in 18 is 


blank) 








CLI 


LD 


L 


*_* 


IS FRR IND. ON 


* 








BZ *-* 




BZ 




*-* 


NO, DONT EXTRACT 


RICR 




(record 


identifying 


code routine) 


BALR 


LDX 


12 


R8 


GET BRANCH ADDRESS 




LDX 


LI 


RI 


GET ADDR OF INDR ADDR 




STX 


LI 


R8 


SAVE IN PR8 




B 


L2 





RETURN 


RI 


DC 







RESULTING INDR ADDR 


CLI 


LD 


L 


*.A 


IS FRR IND. ON 


* 








BZ *-* 




BZ 




*»* 


NO, DONT EXTRACT 


RICR 










BALR 


LDX 


12 


R8 


GET BRANCH ADDRESS 




LDX 


LI 


RI 


GET ADDR OF INDR ADDR 




STX 


LI 


R8 


SAVE IN PR8 




B 


L2 





RETURN 


RI 


DC 







RESULTING INDR ADDR 



1 Optional 

(Column 17 1, and column 18 



followed by 'OR' 



0) 



not followed by 'OR' 



CLI 


LD 


L 


*-* 


* 










BZ 




*_* 


RICR 








BALR 


LDX 


12 


R8 




LDX 


LI 


RI 




STX 


LI 


R8 




B 


L2 





RI 


DC 







CLC 


DN 




RGCMP 




DC 




*-* 




DC 




*-* 




LD 


3 


123 


BNE 


BNZ 




*_* 


RICR 








BALR 


LDX 


12 


R8 




LDX 


LI 


RI 




STX 


LI 


R8 




B 


L2 





RI 


DC 








IS FRR IND. ON 

BZ *-* 
NO, DONT EXTRACT 

GET BRANCH ADDRESS 

GET ADDR OF INDR ADDR 

SAVE IN PR8 

RETURN 

RESULTING INDR ADDR 

LIBF TO RGCMP 
OLD HOLD - FACTOR 1 
NEW HOLD - FACTOR 2 
GET RETURN CODE 
BRANCH IF NOT EQUAL TO 



GET BRANCH ADDRESS 

GET ADDR OF INDR ADDR 

SAVE IN PR8 

RETURN 

RESULTING INDR ADDR 
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N Mandatory 
(Colxunn 17 N, and column 18 



followed by 'OR' 



not followed by 'OR' 



in 18 


blank) 








CLI 


LD 


L 


*_* 


IS FRR IND. ON 


* 








BZ *-* 




BZ 




*_* 


NO, DONT EXTRACT 


RICR 










MVI 


LDX 


LI 


/FO 


SET INSTRUCTION IN 




STX 


LI 


*_* 


NUSEQ TO FO 


01 


LD 


L 


*_* 


LD BCF IN NUSEQ 




STO 


L 


*_* 


STO INTO SW IN NUSEQ 


BALR 


LDX 


12 


R8 


GET BRANCH ADDRESS 




LDX 


LI 


RI 


GET ADDR OF INDR ADDR 




STX 


LI 


R8 


SAVE IN PR8 




B 


L2 





RETURN 


RI 


DC 







RESULTING INDR ADDR 


CLI 


LD 


L 


*_* 


IS FRR IND. ON 


* 








BZ *-* 




BZ 




*_* 


NO, DONT EXTRACT 


RICR 










01 


LD 


L 


*_* 


LD BCF IN NUSEQ 




STO 


L 


*_* 


STO INTO SW IN NUSEQ 


BALR 


LDX 


12 


R8 


GET BRANCH ADDRESS 




LDX 


LI 


RI 


GET ADDR OF INDR ADDR 




STX 


LI 


R8 


SAVE IN PR8 




B 


L2 





RETURN 


RI 


DC 







RESULTING INDR ADDR 



N Optional 
(Colximn 17 N, and column 18 

followed by 'OR' 



0) 



not followed by 'OR' 



01 


LD 


L 


*_* 




STO 


L 


*_* 


CLI 


LD 


L 


*_* 


* 










BZ 




*_* 


RICR 








BALR 


LDX 


12 


R8 




LDX 


LI 


RI 




STX 


LI 


R8 




B 


L2 





RI 


DC 







NI 


LD 


L 


*_* 




STO 


L 


*_* 


CLI 


LD 


L 


*_* 


* 










BZ 




*_* 


RICR 








01 


LD 


L 


*_* 




STO 


L 


*_* 


BALR 


LDX 


12 


R8 




LDX 


LI 


RI 




STX 


LI 


R8 




B 


L2 





RI 


DC 








LD BCF IN NUSEQ 

STO INTO SW IN NUSEQ 

IS FRR IND. ON 

BZ *-* 
NO, DONT EXTRACT 



GET BRANCH ADDRESS 

GET ADDR OF INDR ADDR 

SAVE IN PR8 

RETURN 

RESULTING INDR ADDR 

CHANGE SW 

TO B * 

IS FRR IND. ON 

BZ *-* 
NO, DONT EXTRACT 



LD BCF IN NUSEQ 

STO INTO SW IN NUSEQ 

GET BRANCH ADDRESS 

GET ADDR OF INDR ADDR 

SAVE IN PR8 

RETURN 

RESULTING INDR ADDR 
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OBJECT PROGRAM FLOWCHART 

The following expanded flowchart (Chart LA) 
shows the logic of the RPG Object Program. 
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****A1 ********* 
» EHTEH OBJECT « 

* PROGBAH * 

* * 



**»**B1 ********** 



*OPEN ALL rilES * 



***************** 



*IF TABLES. LOAD* 
* III TABLES * 



*««********«*** *4i 



*LIIIK TO HEADING* 
*A)iD DETAIL LIRE* 

* ROOTIRB * 

* * 



♦01 1 
* El 



• « 
*SET REG 8 HITH * 

♦ POT BOOTIHB * 

• ADDRESS ♦ 

* « 



«**«*pi **«**««*•* 



4i4i*4i*«*****««**** 



***«*P2 ********** 



***•*•«*»««****** 



*****A3 ********** 

* LOAD APDE OF * 

* TABLE * 

* COMTAIMINC * 

* RBADIR6 S « 
*DETAIL EDTRIES * 



**B3******* 

» TUBS OFF * 

IRTEBAL 

OVERPLON 

SBITCHES 

* * 

*********** 



ALPSE1 

««««4iC3*' 



I******** 



*TAKE NEXT EHTRX* 

* IK TABLE 6 * 
->*BRA»CH TO TEST * 

* THIS EMTEr ♦ 

* * 



.♦ *. 
.* BED OF *. YES 
.HEADING LIIE .* 



B3 ♦. 
.* ABE *. 
HO .•CONDITIONS *. 

*.FOR THIS LINE.* 

♦. MET .* 
♦ . .♦ 
*. .* 
* IBS 



RG54 
SPAS 



*«*«**«* 



J?" 



***•♦*•«***«***** 



R65« 
STK 

* m 

* DO STACKER * 

* SELECT IF * 

* HECBSSARI * 

* * 
urn*************** 



RGSK 
ENDHD 

« TORN ON * 
*OVBBFLOtl SHITCB* 
♦FOR FILES WITH * 
*0VBBF10H SENSED* 

• * 

«**•**«********•« 



:t^t**fH********** 



* 00 10 GETRC 



«*•«**«*******•** 



L 



•*** 

♦ 2* 
>* A1 



RGS8 
POT 

♦♦♦**H3* 



«*«•*«*« 



*«*«•*•««««*«««** 



« * 

*L0AD POT - lOD ♦ 

* BNTRI POINT ♦ 

* INTO BEO 15 * 

* * 
**«*«*******««*** 



• ♦ 
♦LOAD REG 9 WITH* 
*ADDR OF OOTPOT • 
♦FIELD BOOTINE * 

♦ ♦ 
♦♦♦♦♦♦♦♦♦*♦♦*♦*** 



* ASSEHBLE LINE 

* IN I/O AREA 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ ♦ 
*LOAD REG 7 WITH* 

♦ LINE RECORD • 

♦ LENGTH * 

♦ * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦ POT THE LINE ♦ 

* NITH lOD * 

* GENEBATIOH * 

♦ * 
♦♦♦♦*♦♦*♦*♦*♦**** 
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♦02 * 
♦ »1 



■-l 



■■ A4 * 

» « 



". IBS 
J .* ,<- 



3 ♦ 
P2* 



• • ♦. 
» IS HALT «. HO 
S HITCH OH .* 



Ot.H) RG58 
HLTHB 

OPEBAIOB ACTIOH* 



«««*«««:»«i»*««*4i« 



IIBT 

* TOBH OFP * 
*IHPOT BECOBD * 
* IHDICAIOBS, 
♦ COHTfiOL * 

♦lETBLS 6 H>* 



* FBOH lONFIBLD * 

♦ CET »DOR OP ♦ 
♦PILE TO BE READ«<- 

• * 

♦ * 



8842 
GET 

♦BEG 8 POIHIS TO^ 

♦ lOD AND IHPOT ♦ 
♦BECOBD OP PILE ♦ 

♦ TO BE READ ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦****** 



BG58 
ADOOI 



♦ ♦ 

♦ SEE BGtO FOR ♦ 
-♦ FORMAT OF ♦ 

♦ LOHFIELO ♦ 

♦ ♦ 



«**«iti«4<««*^^***«* 



B658 
GETFL 

♦ ♦ 
♦LIHK TO LOGICAL^ 

♦ GET OB RAF ♦ 

♦ ROOTIHBS ♦ 

♦ * 
***************** 



♦IP THIS PILE IS^ 
♦LIHKED BT A BA ♦ 

♦ FILE, THE ♦ 
♦BOOTIHE APPEABS+ 

♦ HERE ♦ 



BG2i»-28 



♦INPOI RCD SPEC ♦ 

♦ ♦ 



GET 

♦ SATE RETDRH ♦ 

♦ ADDB IH BEG 8 ♦ 
♦AHD GO TO IRPSE^ 



m*m**m**it*m****** 



BG58 
IHPSE 

♦♦♦•♦C4 ♦♦♦♦♦♦♦♦♦♦ 
♦TAKE NEXT INPUTS 
♦BECOBD TYPE IH ♦ 
♦TABLE AND LIHK ♦ 

♦ TO TEST ♦ 

♦ * 



BG38 

♦ IHPOT RECORD ♦ 
♦TEST. TEST THE ♦ 
♦RECORD CODES IN^ 

♦ THIS RECORD ♦ 

♦ * 



,* 
3 .♦ 
-♦.CODES EQOAL 



BG38 ' 

♦ ♦ 
♦IF NOHERIC AND ♦ 
♦HANDAIORy GO TO^ 

♦ ERB1 ♦ 

♦ ♦ 



63 ♦. 


♦. 

♦ 


.♦ 

HO 



♦ IP STACKEB ♦ 
♦BEOnESIEO. SAVE^ 
♦STACKER CODE IH^ 
♦I/O ABBA MIHDS ♦ 

♦ OHE ♦ 
♦**♦**•**««*****• 



♦ BETUBH TO GET ♦ 

♦ BOUTIHE AMD ♦ 
♦POIHT TO IHPOT ♦ 
♦IHDR WITH BEG &♦ 

♦ * 



H3 ♦. 
.♦END OP ♦. 
NO .♦BECOBD TXPE^. 

♦.FOR THIS PIIB.^ 

♦. .♦ 

♦• .♦ 
♦ . .♦ 
♦ IBS 



♦♦♦♦♦J3^^^*^««*** 



♦INDICATE BBBOB ♦ 



♦ ***^«***«**4i**** 



J 



SATE BESOLT 
IHDH FOR THIS 



«***«*««4i*«**i^«4,4, 



♦♦***J4*«i»**««**« 

♦ SAVE ADDB OP ♦ 

♦ FIELD AND ♦ 

♦ CONTBOL FIELD ♦<- 

♦ EXTBACTION ♦ 

♦ ♦ 



L 



♦ 3 « 
>♦ A1 



h- 



iGBNEBATE 

THAT EOF B 

OCCOBBED 



♦♦♦♦♦♦♦♦♦♦♦♦*«••• 



****«l)S«**«*«4i«*« 
♦ « 

♦LOHFIELD IF OHE^ 



*««*•«***•«***•** 



♦ • 

♦ SAVE IH ♦ 
-♦ LOWPIELD OR ♦ 

♦ HOLD ABBA ♦ 

♦ * 



♦READ A RECORD 



*«****««*4i4i*«4i««« 
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•03 

♦ »1 *- 



1 



.•EOF SEHSED *. YES 

♦.FOB THIS FILE,* 

♦ . . .* 
*. .♦ 



* • 

* DO HULTIFILE * 

* EXTEiCTIOH • 
♦BOOTIHE IF »HY • 

* * 



* BOOTIHE FOB 1 * 

♦ OB 2 FILES IS * 
-♦DESCBIDED III RG* 



***«******«***:»** 



*****««*4i* •*****« 



RG58 
PROCB 

♦ SET BESOLT * 

* INDICiTOE OH ♦ 
♦FOR THIS EECOED^ 



******♦♦♦♦♦♦♦♦♦♦♦ 



.♦. 

F1 ♦. 

.♦ ♦. 

ABE THESE * 

COHTBOL 

. LEVELS •" 

♦ . . ♦ 

♦. .♦ 

♦ NO 



♦ ♦*♦ 
♦03 ♦ 

♦ F2 ♦-> 

♦ * 

EOJBO 

♦ ♦ 
♦TOBH COHTBOL * 

♦ LEVELS iSD LB ♦ 
* ON ♦ 

• ♦ 



* * 

TORN OH 

OVEBFLOH 

SNITCHES 

» * 



F3 



*, 



YES .♦ iHE THERE * 

r+.ANY OVERFLOW 
♦. LINES .* 



♦ NO 



N Ct ♦ 
k * 
♦ ♦♦♦ 



r 



*♦♦♦ 
* ♦ 

♦ »4 ♦ 

* * 



♦ SET TOTSB OH 

* 
« * 



♦ ♦♦♦ 

♦ It « 

->♦. *3 ♦ 



*«*«*Q2 *♦♦♦«♦♦♦♦♦ 

♦ MOVE »DDB OF ♦ 

♦ CONTROL LEVEL ♦ 

♦ BIN FBOM ♦ 

♦ LOHFIELD 6 BB ♦ 

♦ TO IT ♦ 



♦ MOVE CONTROL ♦ 
♦LEVELS TO HOLD ♦<- 

♦ ABEA ♦ 

♦ ♦ 



*:»**«J 2 ♦♦♦♦♦♦♦♦♦♦ 



*4<4r**G3 **««****** 

♦ IF OVFLO HAS ♦ 
♦BEEH SENSED FOE^ 
♦THIS LIHE SKIP ♦ 

♦ TO CHAN 1 ♦ 

♦ ♦ 



L 



♦♦♦♦ 

♦ IF HO COHTBOL ♦ 

♦ LEVELS EXIST • 
-♦ TCLNK IS ♦ 

♦ EXECOTED ♦ 

» • 



www 



^mm**kn****'^***** 



******♦♦♦♦♦♦♦♦♦♦♦ 



BGSt 
B0006 

**** 4^34 ♦♦♦♦♦♦♦♦♦♦ 



^finr*************** 



BG58^^^ 
ALPSE ♦ 

*««*«Clt ♦♦♦♦♦♦♦♦♦♦ 



it^i^^,^^:t*m*w****** 



♦ REG 8-ADDR OF ♦ 

♦ POT BTB REG ♦ 
-♦ 10-ALPSB REG ♦ 

♦ 11-TOTAL LIN ♦ 

♦ • 



.♦ END 


OF ♦. 


YES 


. OVERFLOW 




♦. LINES .♦ 




♦ . .♦ 




♦ . ,♦ 




♦ NO 


♦♦♦♦♦ 






♦ 4 ♦ 






♦ A3^ 






♦ ♦ 






♦ 


r- 








rn *. 




.♦ ♦. 




.♦COHDITIONS ♦ 


HO 


.HET FOR THIS 


♦ 1 


♦ . LUE .♦ 




♦ . 


,♦ 





RG54 
SPAS 

♦ ♦ 

♦DO SPACING AND ♦ 

♦ SKIPPING IF ♦ 

♦ NECESSARY ♦ 

♦ ♦ 



RG54 
STK 

♦ ♦ 

♦ DO STACKER ♦ 

♦ SELECT IP ♦ 

♦ NECESSARY ♦ 

♦ ♦ 



♦ ♦ 
♦LOAD REG 9 HITH^ 
♦ADDB OF ODTPDT ♦ 

♦ FIELD RTN ♦ 

♦ ♦ 



ASSEHBLE LINE 
IN I/O AREA 



*«*««:»«**««4l*4>*«* 



♦ ♦ 
♦LOAD REG 7 NITH^ 

♦ LINE RECORD ♦ 

♦ LENGTH ♦ 

♦ ♦ 



BG58 
POT 



u 



****«*« 



«*****4i**«*****:»* 



K2 ♦. 
* ♦. 
.♦is IT FIESTA. HO 



***** 

♦ 4 ♦ 

♦ A3^ 

* * 



***************** 



*****K1( ********** 

* * 

* SET POT EHTBY ♦ 
♦POIHT INTO REG ♦ 

* 15 ♦ 

* * 
***************** 



* POT THE LINE ♦ 



***************** 
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**** 






*oa 


* 






•-1 




GETIFD 


.♦ 






J3 


♦ . 




♦ 




.♦ 






*. 


IS LR 


OH 


♦ , 


*. 





♦ LOAD ADDR OF * 

* I/O ABEA FOB * 
*HECOBD TYPE TO * 
♦BE PEOCESSED IN* 
» BE62 ♦ 



♦*C3******* 

*TDBN OS/OFF* 

* BE SWITCH ♦ 

* TUEK IHTERSAL ♦ 

*HE SWITCH OFF* 

* * 



E658 

«;»«*«D3**««****4<* 

*GET INPUT FIELD* 

* HODTIHE FOE * 
*THIS FILE FBOH ♦ 

* LOHPIELD * 

* * 

4i«;ti*««**4>******** 



EG36 

**«*«E3*4<***4i>tc>t>*« 

* PEEFOEH INPUT * 

* FIELD * 
*EXTEACTION FOR ♦ 

* THIS EECOED * 

* * 

**:ti*>)l<ti4<********** 



**** 

.*. 

F3 *. 

.* ANY *. 

••CHAIN FILE *. 

►. FOE THIS ,* 

*. EECOED .* 

*.TYPE .* 



4<**4<4i*«*4<*4<****** 



*««**I)4«:)c*****4<«4i 



* CLOSE FILES 



********«****4<4>** 



» 4 

► EXIT « 
l> * 

^1^************4' 



* DO CHAINING * 

* ROUTINE FOR * 

* THIS FILE * 

* * 
***************** 



RG34 

*****^2********** 

* IDENTIFY AND ♦ 

* SET RESULT ♦ 

* INDICATOR FOB * 

* THIS BECOHD * 

* TYPE ♦ 
***************** 



RG36 ♦ 

*****J2********** 
*EXTEACT FIELDS * 
•FBOH INPUT ABEA* 
*FOR BECOBD TYPE* 



****************^i 



* NO 



*****Q3********** 



***************** 



L 



**** 
♦ 1 ♦ 

•>* El 
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LIBRARY SUBROUTINES 

This section contains flowcharts of the 
library subroutines which can be linked to 
by the object program generated by the 1130 
RPG compiler. The library subroutines, 
which are assembled by the system in its 
library, are put in core storage by the 
core load builder, after it puts the 
mainline object code into storage, as 
shown in Figure 23. 



Supervisor 



Mainfine 
Object Code 



Library 
Subroutines 



Figure 23. Location of the Library Sub- 
routines in an Object-Time Core 
Load 



The library subroutines are placed in 
storage in the order in which they are 
called by the object code routines. A 
subroutine will be stored only once, how- 
ever, regardless of how many times it is 
to be called. Table 12 shows which sub- 
routines are called by each object code 
routine . 



Routines 


Subroutines 


FIXED DRIVER 


RGERR 


MOVE INPUT FIELDS 


RGMVl 

RGMV5 

RGSI2 

RGSI3 

RGSI4 

RGSI5 

RGSTI 


MOVE OUTPUT FIELDS 


RGMV2 

RGSTO 

RGEDT 

RGADD 

RGBLK 


RAF routine 


RGMVl 
RGCVB 
ISETl 


CHAINING routine 


RGCVB 


CONTROL LEVEL COMPARE 


RGCMP 
RGMV3 


Control Level Extraction 


RGMV5 


Matching Field Extraction 


RGMV5 
RGCMP 


MFTST routine 


RGMV3 
RGCMP 


lODs 


See discus- 
sion of 
lODs 


CHAIN (calculation) 


RGCVB 


LOKUP (calculation) 


RGCMP 

RGMV3 

RGNCP 

RGSI3 

RGSI4 


CALCULATIONS 


RGADD 

RGCMP 

RGDIV 

RGMLT 

RGMVR 

RGMV3 

RGMV4 

RGNCP 

RGSIl 

RGSI2 

RGSI3 

RGSI4 

RGSUB 

RGTSZ 


Table Load and Dump 


RGMVl 
RGMV2 
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♦♦♦*A2 ***♦**♦♦* 
♦EKTEI VIA LIBF ♦ 

* BGHV1 * 

♦ ♦ 



♦ENTHY VIA LIBF * 

* HGMV5 ♦ 

* * 



*****23********** 



->* SET SH2 ON 



***>|i«4<*4»««*«<*i**4i4' 



*****C3 ********** 



->* SET SW1 OB 



**#fnt*^>^,^^nt^t^f^n,^i^t 



D2 *. 

.* IS *. 

.*FIEST DIGIT*. 

*. OF PACKED . 

♦. DATA ,♦ 

♦.VALID.* 



* YES 



**** 

* * 

* E2 ♦-> 

« * 
**** 

*:)|*4<*S2 ********** 

* * 

*IOAD A WOfiD OF * 

♦ 1/0 AREA ♦ 

♦ * 

♦ * 
***************** 



.* *. YES 
♦.IS SW1 OH ? .* 

*. .♦ 



♦ NO 
< ■ 



G2 ♦. 
,♦ *. 
.* 
♦.IS SH2 OH 7 

*. 

♦ . .♦ 
♦. . ♦ 
* NO 



*****H2 ********** 

♦ * 

♦ MOVE THE * 
•CHARACTER IHTO * 

♦ THE FIELD * 

♦ * 
«*«***«***** t**** 



««««*j 2 ********** 



**««itiitc«i|i*«*i«i4[*«4i« 



*i**^*l,2********** 



->* SET SW3 ON 



*!|<************4l*« 



J 



****4<F3 *♦♦******♦ 



*4<iti**:tl****4i«**4t4is|i 



.♦. 

G3 ♦. 
.* *. 
.* 
->*.IS S»3 OH 7 
♦. 

*. .* 
♦ . .* 
♦ NO 



*«4i«*G4 *******««* 



4c****4<*i|i4>******** 



» ARE ALL 

CHARACTERS 
*.NOVED 7 . 



♦***K3 ********* 
<■ * 

* RETURN * 

* * 
*************** 



**** 

* * 
->* E2 * 

* * 
**** 
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♦ERTBY VI» IIBF • 

• 8GHV2 ♦ 

* * 
********* ****** 



*****B2********** 

* * 
^DETEBHIIIE TXFE * 
•or FIELD TO BE * 

* MOVED * 

* * 
***************** 



*****(;2********** 



***************** 



*****D2********** 

* * 

* PBBPORB iSI * 

* HEEDED ♦ 

* iDJOSTBENTS * 

* * 
***************** 



*****22********** 



***************** 



IBS .* MOVE *. 

♦.CHARACTERS TO.* 

*. MOVE 7 •• 



****62********'*' 

* 4 

* RBTOBll * 

* 4 
*************** 
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*EHTRY VIA LIBF * 

* EGMV3 * 

* 4 



♦ENTER VIA LIBF ♦ 

* RGMTt * 

* * 



*:^W**B'\********** 



l)l**!4l*B2********** 



♦IHITIALIZATIOS * 



♦INITIALIZATIOH ♦ 



**4i*4> ************ 



* * 
♦COMPUTE LENGTHS* 

* OF 'TO' AND * 
♦'FBOH' FIELDS ♦ 

* * 



♦ * 
*GET RIGHT MOST * 

♦ HOED FROM * 

♦ 'FEOU» FIELD ♦ 

♦ * 



**«**£ 1 *«**«**«*« 



*******«♦<<«****** 



F1 



♦ . 



LAST HORD 

*. 

*. ** 
*• .* 
* YES 



)> * 

* RETURN * 

* * 



***************** 



«****(;2********** 

* * 
♦COMPUTE LENGTHS* 

* OF 'TO' AND * 
*'PROH' FIELDS * 

* * 
***************** 



*****D2 ********** 

* * 

* GET LEFT MOST ♦ 

* WORD FROM * 

* 'FROM' FIELD * 

* * 
***************** 



*«*«*Q2 ********** 



***************** 



F2 *. 
.* *. 
.* 
*. LAST HOED 
*. . 

*. .* 
*. .* 
* YES 



****G2*** ****** 

K * 

•■ RETURN * 

¥ * 

*************** 
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♦ENTRY VIA LIBF * 

* RGCKP * 

* * 
*************** 



***************** 



.* LEHGTH OF *. YES 

►. FACT0E2 < .* 

*. THAT OF .* 
*. FACTO.* 



*****j)2********** 

* * 

* SET SH, * 
♦EXCHANGE COUNT * 

* WITH THREE * 

* * 
***************** 

**** 



* E2 * 

* * 
**** 

*****-£2********** 



***************** 



.*DOES CODHT *. YES 

=07 .♦ 

*. .* 



B4 *. 
.* DOES *. 
* FACT0E2 = 
FACT0E1 ? 



♦ . .* 
* NO 
♦ ♦** 

* * 

* Ct ♦-> 

* * 
**** 

■' 
*** + *Cl» ********** 



***************** 



*****DH********** 



* RESTORE REG1 



***************** 



*****EIt ********** 



* RESTORE REG2 



***************** 



«***Flt ********* 
» * 

* RETDRH * 
> * 

*************** 



**** 



IS SB ON 7 .*- 



A1 .*. 

G3 ♦. 

.* *. 

.* DOES * 

>♦. FiCTOEl = 

*. BLANK 7 .* 
*. 



n- 



*, 



* NO 



. * DOES 
. FACTOR 2 
♦.BLANK ? 





r 

**** 




+ * 




* Ct * 




* ♦ 


**** 


+*♦* 


*. YES * * 




.* >* Gt * 




. * * * 




*♦** 





*****QH********** 



***************** 



*«***H4 **♦***«♦♦* 



***************** 



.* *. **** 

.♦DOES REG3 =*. YES * ♦ 

? .* >* ca * 



**** 

* * 

* E2 * 

* * 
**** 
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*ENTEY Via LIBF * 

* EGSI1 * 

♦ * 



*****C-\*:**^*'^**** 



***♦ A3 ********* 
♦ENTRY VIA LIBF * 

* RGSI2 * 

* * 
*************** 



*****B3** ******** 



***************** 



*INITIAI.IZATIOK * 



***************** 



*****D1 ********** 



***************** 



.♦CONDITIONS *. 
BET 

*. .* 



****G1 ********* 

* * 

* EEinRN ♦ 

* * 
*************** 



♦♦**E2 ********* 

*BETUEN TO NEXT * 

>* CALC SPEC * 

* * 

*************** 



113 *. 
.* *. 
. * * 

*. MINUS OR LOW 



*. 

**** 

* * 

* F3 *-> 

* * 
**** 



****F3********* 
¥ * 

* EETOEN * 

* * 
*************** 



L 



>* F3 * 
* 
***♦ 



♦ . .* 
* YES 

**♦* 



L: 



>* F3 * 
* 
**♦* 



*****F5 ********** 



***************** 



****G5 ********* 

!■ * 

* RETURN ♦ 
K * 

*************** 
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««4i«t1 ***«***«« 



«««4<««***«**«** 



• * 

* IHIT TO SET • 

♦ mDICitOR TO * 

• /0001 * 



♦EHTER TI» LIBP * 
* RGSI« ♦ 



*«***B2 ********** 



•IBIT TO S| 
* TO /00« 



mtintm************ 



«««*]»C1 ********** 



*SET IBDICiTORS * 
* Oi/OPF * 



4i«4>««*««***«««**« 



••♦♦i3********* 
*ENTBR VIA LIBP ♦ 

* RGSIb ♦ 

♦ * 



♦*»**B3********** 



^m*************** 



C3 *. 
.* ♦. 
.* FIELD ♦. lES 
► . HUMERIC .* 

*. .* 



->*. SIGN HIHUS 



.* 
■ .* 

* ao 



«*«««S1**4i«««**«« 



**««:**««**4l*4i*«*4i 



**4>«])2********* 

♦ ♦ 
->* RETOEI * 

* * 



*. 



»»«#*D3********** 



t^tt-t************ 



♦♦♦♦»C5********** 



* SET PAC » TO 
->* /8000 



*«:»*«4<*********** 



*«**«J)4**«**«***4i 



SET PAC = TO 
/0001 



!»*4i*«******4>«**** 



*««4i*El) ***«****«* 



4i****«««********* 



.* *X 
.*TEST WORD 0*. lES 
». OR BLASK .♦ 



P5 ♦. 
.* < 
.♦ 
->♦. LAST WORD 



«*«*H4 ********* 
» * 

* HETDRH * 



*4i4i**G5********** 

* ♦ 

♦SET PAC " /OOOO* 



«««*«***«**« **4i** 



Chart MF. Set Indicators On or Off, and Test for Zero or Blank Subroutines 



134 



♦EUTFt VIA CAIL * 
* RGTSZ ♦ 

« * 



♦ * 

♦ GET FIELD AND * 

♦ CHECK PIRST * 

♦ POSITIOH ♦ 

♦ * 



.♦. 

CI *. 

.* ♦. 
.♦12-ZOHE OR *. YES 
. AHPEFSAND .* 



,* 



* * 

♦SET WORD IN FAC* 
->* TO POSITIVE * 

* SON-ZEBO ♦ 

* * 

¥ * 

->* PI ♦ 

* ♦ 



L 



**«4i4<4<«*****«**4>* 



*««**£ I********** 



♦ PI *-> 



* * 

* RETORH * 



Chart MG. Test Zone Subroutine 



Part Two: 1130 RPG Object Program 135 



*EHTER VIA IIBF ♦ 

* RGCVB * 

* ♦ 



*****B2*** ******* 
♦INTLZ ♦ 

*-*-*-*-*-♦-*-♦_+ 

* * 
♦INITIALIZATION * 

* * 
***************** 



***************** 



.* ARE ALL 
DIGITS 
*. CONVERTED. 



***********«*:(. 4i :(,:(, 



***************** 



****E3********* 

* * 

* EETDRH * 

* * 
*************** 



. * IS THE *, 

DIGIT 

♦.CONVERTED.* 
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♦ENTRY VIA CALL * 

♦ EGEER * 

* * 



*.OPEEATI 

*.PBOGHESS . 
*. .* 



* * 

* LOAD AGC WITH * 

* BPG EHROH * 

* NOMBEE * 

* * 

:ti**«*>|c:|i*«:i<4l ****** 



.* * 

, * OPERATOR 
REPLY 



4i****F1**«4<**4i4>** 



i^^i:^:^t**'¥********* 



*, 

♦, NO 

ZERO , * 

.♦ 
,* 
• .♦ 
* YES 



****G5********* 

* * 

* EETDEN * 



:)|«**H1 ********* 

♦ EOJ * 

* * 
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♦ENTRY VIA LIBF ♦ 

* RGBLK * 

* ♦ 



*****C1 •*♦♦*•♦♦♦♦ 

* * 

* ♦ 

* GET FIELD ♦ 

* * 

* * 

* * 

* D1 •-; 
*♦** 

.* ♦. 
, * 

♦. WORD iLPHi 



*****D2*******'<<')>* 



->• ZERO WORD 



*^*-*mzA ********** 



******^HLiH^iHi^t*** 



.* EHTIBE ♦. K 
♦•FIELD TESTED , ♦- 



***^:^l^L^,********m* 



*****r2********** 



*****t,^tm******** 



♦♦♦♦G !♦♦♦♦♦♦♦♦♦ 

* * 

* HBTORll ♦ 

* ♦ 
m**********^*<t^ 
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«ENTER VIA LIB? * 

* R6ADD * 

* * 



*ENTER VIA LIBF * 

* RGSOB ♦ 

* * 



«****B2******4>*** 



*EMTER VIA LIBF * 

* RGNCP * 

♦ * 
*4>««**«* ******* 



««*««;»«**«*i|i*«4i«* 



C2 


*. 






0^i^nn,C3#i 


»**«*«*«* 


.♦ IS *. 






♦ • 


.* OPBRATIOH 


♦ . 


YES 


♦CHANGE SIGN OF * 


*. SOBTRACT ? 




♦ 


>♦ FACTOR 2 * 


*. 


♦ " 




« * 


*. .♦ 






* * 


*. .♦ 






**4i4>***4<****«*«** 


* NO 


















' 








. *. 






.*. 


D2 *. 






D3 *. 


.* *. 






.♦ IS *. 


.*ABE SIGHS =* 


NO 


.* OPBRATIOH ♦. 1 


*, 7 




* 


>*. COMPARE 7 .*- 


*. 


♦ ' 




*. .* 


*. .* 






*. .* 


*. . ♦ 






*. .* 


♦ YES 






* NO 


*♦*♦ 












* * 












♦ E2 ♦-> 












* * 












«*«* 












ITADD .*. 






CMPH V 


E2 *. 






*nm*m-E3********** 


.♦ IS *. 






* * 


.* OPERATION 


* 


YES 


♦COMPARE FACTOR ♦ 


*. COBPA 


RE ? 




♦ 


>*1 AND FACTOR 2 * 



***««4i**«*««****4i 



^m**ifG2'********** 



*4i*«4>««****«****<li 



«**iti«lI2********** 



* SAVE RESULT 



*««>»;|i«*«*«***:ti««* 



«««*««««*:»4i4i**«*4c 



F3 *. 

• * ♦. 

.* IS * 

. OPERATION 

■k.CCHPARB .* 



.* BESDLT OF *. NEG 

->♦. COMPARE .♦ 

*. .♦ 



4>***«p5«********« 



«**«*«4>*******4i** 



♦*♦♦ 
SETNC 



«*«4i«**4i*«**«4>«** 



«*«4>g3«4i«*4>«**4> 



^l^tl************* 



««*«>liGl( «♦*♦*«♦«** 

♦ ♦ 
♦SET SNITCH FOR ♦ 

♦ INTERNAL * 

♦ SOBTRACT ♦ 
« ♦ 
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****J3********* 
*ENTEB VIA LIBF * 

* RGHLT * 

♦ * 
*************** 



*****B3********** 



***************** 



*****C3 ********** 
*PGDTB * 

+-*-*-*-*-*-*-*-* 
♦CONVERT FACTOES* 

* 1 AND 2 TO * 

* BINAEY * 
***************** 



*****D3 ********** 



***************** 



**+**E3 ********** 
*HGBTD * 

*-*-♦-*-♦-♦-♦-*-♦ 
♦CONVEBT EESOLT * 

* TO DECIMAL * 

* ♦ 
***************** 



*****f2********** 

* DETEBHINE * 

* NDHBEB OF * 

* DECIMAL * 

* POSITIONS * 

* * 
***************** 



*****QH********** 



***************** 



*****^j********** 

* * 
♦MOVE BE3ULT TO * 

* BESDLT FIELD * 

* FORCING SIGN * 

* * 
***************** 



*****j:^********** 



***************** 



♦♦♦♦K3 ********* 
¥ * 

* EETUEN * 

» * 

*************** 
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♦ENIEE VIS LIBF * 

* EGDIV ♦ 

♦ ♦ 



*****A2 ♦♦*♦*♦♦♦** 

* DIV 2 LEFT * 

* WORDS OF * 

* DIVIDEND BY * 

* LEFT HOEDS OF * 

* DIVISOE * 



* * 

* GET PAKiMETES * 
♦FOE DIVISOR AHD* 

* DIVIDEND * 

* * 



*4>***C1 ♦**♦*♦***♦ 

* ELIM THE ZONE * 

* POSITION OF * 

* DIGITS FHOB * 

* DIVISOE AHD ♦ 

* DIVIDEND * 
***************** 



*****01 ********** 

* ♦ 

* ALIGN DIVISOE * 
♦AND DIVIDEND TO* 
♦DECIMAL POINT * 

* * 
***************** 



*****E1 ********** 
*RGDTB * * J 

♦CONVERT DIVISOE* 
♦AND DIVIDEND TO^ 
* BINAEY ♦ 
***************** 



.♦ DIVISOE ♦. YES 

. LAEGEE THAN .♦ 

♦.DIVIDEND .♦ 
♦ . ? .♦ 



.♦IS DIVIDEND^. YES 
ZERO ? .♦ 



.♦QDOIIENT ?*♦. YES 

. TO LEFT OF .♦ 

♦.RANGE ? .* 



.♦. 
K1 ♦. 
.♦IS TEHP^. 
.♦QDOTIEHT PT^. YES 

. TO EIGHT OF .♦ 

♦.RANGE 7 .♦ 



*****B2 ♦♦♦♦♦*♦♦** 



♦SAVE RESULT IN ♦ 
♦TEHP QDOTIENT ♦ 



***************** 



*****C2 ♦♦*♦♦*♦♦♦♦ 

♦ MPY 3 RIGHT ♦ 

♦ HOEDS OF * 

♦ DIVISOE BY t ♦ 
♦EIGHT KOEDS OF + 
♦TEMP QUOTIENT * 
***************** 



*****D 2 ♦♦♦*♦♦♦♦♦♦ 



***************** 



*****]g2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SUBTEACT * 

♦ DIVIDEND FEOB ♦- 

♦ PEODUCT ♦ 

♦ ♦ 
***************** 



.* 








G1 


♦ . 






.* 


♦ . 






.♦IS DIVCSOE 


♦ 


YES 


ZERO 


7 




* 


♦ . 








♦ . 


.♦ 






♦ . 


,♦ 






♦ 


NO 







*****P2^^^ ♦*♦♦♦♦♦ 

♦ * 

♦ STORE THE ♦ 
->^DIVIDEND AS THE+- 

♦ EEMAINDEE ♦ 

♦ ♦ 
***************** 



*****G2 ♦♦♦*♦♦♦*♦♦ 



***************** 



*****H2^^*^^^^^^* 

♦ ♦ 

♦ SET QDOTIENT ♦ 
->♦ AND EEHAINDEE ♦- 

♦ TO ZEEO ♦ 



*****♦♦♦♦♦♦♦♦♦♦♦♦ 



*****J2 *♦♦♦♦♦♦♦♦♦ 
♦SET QUOTIENT TO* 

♦ ZEEO 8 ♦ 
->+HEMAINDEE EQUAL^- 

♦ TO DIVIDEND ♦ 



***************** 



*****K2 ♦♦*♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET QDOTIENT ♦ 
->♦ AND EEMAINDEE ♦- 

♦ TO ZEEO ♦ 

♦ ♦ 
***************** 



*****E3 ********** 

* ♦ 

♦ ADJUST TEMP ♦ 
->♦ QUOTIENT *- 

♦ POIHTEE ♦ 

* ♦ 
***************** 



****I'3********* 
¥ * 

► RETURN * 
» * 

*************** 



.♦ IS DIVIDE *. NO 

->♦. DONE 7 .♦ 

*. .♦ 



FU ♦. 
.♦IS HALF^. 
.♦ ADJUST 
. REQUESTED 



*****f 5*********i 

* < 

* ADD 1 TO * 
>♦ QUOTIENT IF ♦ 

♦ NECESSAEY ♦ 

♦ ♦ 
***************** 



*_*_*_*_*-*-*-*-* 
>♦ ♦ 

* ERROR CtOO ♦ 



***************** 



*****tj3 ********** 

♦ OPERATOR ♦ 

♦ ACTION: ♦ 

♦ TERMINATE OE ♦ 

♦ CONTINUE ♦ 

♦ * 
***************** 



****J3^^^*^^^^* 

♦ * 
->♦ RETURN * 

♦ * 
*************** 



****K3*******++ 
tc * 

* RETURN * 

* X 
*************** 



*****G4 ********** 

♦ ♦ 

♦ CONVERT ♦ 

♦ QUOTIENT TO ♦ 

♦ DECIMAL ♦ 

♦ ♦ 
***************** 



*****{14 ********** 



***************** 



*****jl| ********** 
♦INSERT NEGITIVE+ 

♦ SIGN IF ♦ 

♦ QUOTIENT IS ♦ 

♦ NEGITIVE * 

♦ ♦ 
***************** 



*****K4 ********** 



♦ STORE RESULT 

♦ INDICATOR 



****K5****^^^^* 

♦ * 
->♦ RETURN » 

♦ » 
*************** 



***************** 



**♦♦ 

♦ ♦ 

♦ A2 ♦ 

♦ ♦ 
♦ ♦♦♦ 
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*E»TRI VI» LIBF ♦ 

♦ BGHVB * 

* 4 



****>t>B1 ******'*■*** 



IHITIiLIZE 



**«***4i^«4i«*«*«** 



♦RGBTD * 

♦-♦-*-♦-«-♦-♦_*-♦ 

♦ CONFEBT * 

♦ HEMHIHDBB TO * 

♦ DECIHiL ♦ 
***************** 



*****X)1 ********** 

* iDJQST * 

* BEHilNOEB TO * 
*PBEC AND SCALE * 

* OF QnOTIENT * 

* * 
***************** 



*****£ 1 ********** 

* ADJUST ♦ 

* BEBAIHDEfi TO * 
*PI(EC AND SCALE * 
*0r BESOLT PIELD* 

* * 
***************** 



*****I>1 ********** 



***************** 



.*"' *•*. 

RESULTING * 

INDICATOB 

.NEGATIVE .* 

*• .♦ 

♦. •* 

* lES 



a****62********** 

* ♦ 
•STORE POSITIVE * 

->*S1GN IN EESnif • 

* FIELD * 

* * 
***************** 



***** J 1 *««*«***** 

• STOBB A • 

* NEGATIVE SIGN • 
*IN BESDLT FIELD* 



***************** 



****K1 ********* 
K 4 

* BBTDSH « 

t * 

*************** 
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*ENTEE VIA LIBF * 

* HGDTB * 

* * 



♦ESTEB VIA LIBF ♦ 
♦ EGBTD * 
« * 



*INTLZ * 

♦-♦-♦-*-♦-♦-♦-♦-* 

♦ ♦ 
*INTI«LIZATION ♦ 

* ♦ 



* GET A DECIMAL * 

* DIGIT TO ♦ 

* COHVEBT * 

* * 



D1 ♦. 
, .-KABE ALL'f. 
.'• DIGITS 
*.CONTEBTED ? 



^ili^iill^i^^m********* 



.*. 

n *. 

.♦IS THE ♦. 
IBS .* DIGIT *. 
♦.COHVERTBD 7 .' 

*. .♦ 



«*4[«««*****4i>ti*«4>« 



» ♦ 

* BBTUEH * 

¥ * 



♦ ♦ 

♦INITIALIZATION ♦ 



««***«*******4<**4i 



«*«******«*4i**4>** 



♦. .♦ 



«*«4i«SI|**«***«*«« 



******* ***4i*****<* 



FU ♦. 

.♦ IS ♦. 

) .♦ BIKAHI ♦. 

-♦. HOHBEB .♦ 

♦.COHVEBTED.^ 

♦ . 7 .♦ 



♦ ♦♦♦Qlt ♦♦♦♦♦♦♦♦♦ 
» « 

» BETUBB ♦ 
* • 

Dim************* 
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♦ENTER VI» LIBF * 

* RGSTI * 

* » 



♦ENTER Vli LIBF * 

* BGSTO * 

♦ ♦ 



♦ ♦»**B'l ****♦♦**♦♦ 

♦ ♦ 
♦INITIALIZE HOHK+ 

♦ AREAS AND ♦ 

♦ POINTERS ♦ 

♦ * 



♦♦♦♦♦CI ♦♦♦♦♦♦*♦♦♦ 

♦ CALCULATE ♦ 

♦ NUMBER OP ♦ 

♦ POUNDS ♦ 

♦ POSITIONS ♦ 

♦ ♦ 



♦♦♦♦♦D1 ♦♦♦♦♦♦♦♦♦♦ 



***************** 



*****^-\ ********** 



***************** 



*****f1********** 

♦ * 

♦ REMOVE THE ♦ 

♦ ZONES OF THE ♦ 

♦ POUNDS FIELD ♦ 

♦ * 
***************** 



****«G1 ♦♦♦♦♦♦♦*♦♦ 
♦BGDTB ♦ 

♦-♦-*-*-*-*-*-*-* 
♦COKVEBT POUNDS ♦ 

♦ TO BINARY ♦ 

♦ * 
***************** 



♦♦♦♦♦HI ♦♦♦♦♦♦♦*♦♦ 



♦♦*♦♦♦♦♦♦**♦♦♦♦** 



♦♦♦♦♦J 1 ♦♦♦♦♦♦♦**♦ 
♦RGITB ♦ 

*-*-*-*-*-*-*-*-* 

♦ CONVERT ♦ 

♦ SHILLINGS TO ♦ 

♦ BINARY ♦ 
******♦**♦♦♦♦**♦* 



♦♦♦♦♦K1 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ CONVERT ♦ 

♦ SHILLINGS TO ♦ 

♦ PENCE ♦ 

♦ * 
***************** 



♦♦♦♦♦B2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ ADD CONVERTED ♦ 
♦SHILLINGS FIELDS 
♦TO PENCE FIELD + 

♦ * 
***************** 



♦♦♦♦♦C2 ♦♦♦♦♦♦♦♦♦♦ 



***************** 



*****D2*** ******* 

♦ ADD CONVERTED ♦ 
♦POUNDS FI8ID TO^ 

♦ COMBINED ♦ 
♦SHILLING PENCE ♦ 

♦ SUM ♦ 
***************** 



♦♦•♦♦E2 ♦♦♦♦♦♦♦♦♦♦ 
♦RGBTD ♦ 

♦-♦-*-♦-*-♦-♦-♦-* 

♦ CONVERT THE ♦ 
♦BINAHT PENCE TO^ 

♦ DECIMAL ♦ 
*******♦♦♦♦♦*♦♦*♦ 



♦♦♦♦♦F2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 
♦STORE THE SIGN ♦ 
♦AND F ZONES IN ♦ 

♦ FIELD ♦ 

♦ * 
***************** 



****Q2*** ****** 

* * 

* RETURN ♦ 
k * 

*************** 



*****;gH********** 

♦ * 
♦INITIALIZE WORKt 

♦ AREAS AND ♦ 

♦ POINTERS ♦ 

♦ ♦ 



♦ ♦***Clt ♦♦♦ + ♦♦♦♦♦♦ 

♦ * 

♦ MOVE DECIMAL ♦ 

♦ PENCE FIELD ♦ 
♦INTO WORK AREA ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



*****j)H ********** 



***************** 



♦♦♦♦♦E4 *♦♦♦♦♦♦♦♦♦ 
♦HFDTB ♦ 

♦-♦_♦_♦_♦_♦_+_♦_♦ 

♦ CONVERT THE ♦ 

♦ NUMBERS TO ♦ 

♦ BINARY ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦* 



*****fH********** 



***************** 



*****GH********** 

♦ CONVERT THE ♦ 
♦REMAINDER INTO ♦ 
♦SPECIFIED PENCE^ 

♦ FORMAT ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦ 



♦♦♦♦♦HU ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦DIVIDE QUOTIENT^ 

♦ OF PREVIOUS ♦ 

♦ DIVIDE BY 20 ♦ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦*♦♦*♦♦ 



♦♦♦♦♦J It ♦♦♦♦♦♦♦♦♦♦ 

♦ CONVERT ♦ 
♦REMAINDER INTO ♦ 

♦ SPECIFIED ♦ 
♦SHILLING FORMAT^ 

♦ ♦ 
♦♦♦♦♦♦♦♦♦**♦♦♦♦♦* 



*****f^H ********** 

♦ CONVERT THE ♦ 

♦ QUOTIENT TO ♦ 



♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦C5^^^^^^^^^^ 
♦MOVE CONVERTED ♦ 

♦ FIELD INTO ♦ 
♦ASSIGNED FIELD ♦ 

♦ AREA ♦ 

♦ ♦ 
***************** 



****T)5********* 

* * 

* RETURN ♦ 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦*♦ 



♦♦♦♦♦E5 ♦♦♦+♦♦♦♦♦♦ 



♦INSERT F ZONES ♦ 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



F5 ♦. 

.♦IS ZERO+. 

.♦SUPPRESSION^. 

♦.REQUESTED 7 . 



♦♦♦♦♦G5 ♦♦♦♦♦♦♦♦♦♦ 



♦♦*♦*♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦H5 ♦♦♦♦♦♦♦♦♦♦ 
♦RFMV2 ♦ 

♦-♦-♦-*-♦-♦-♦-♦-♦ 

♦ MOVE FIELDS ♦ 
♦INTO I/O AREA ♦ 

♦ * 
♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦ 



*****j^********** 



***************** 



****K5********* 

* * 

* RETURN * 

* * 
*************** 
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****A2********* 
♦ENTER VIA LIBF * 

* BGEDT * 

♦ * 
**♦«♦♦**♦**♦*♦* 



***#»B2 ♦**♦****** 



.♦SIGNIFICANT*. 
. CHAE FOUND .* 
♦- YET? .♦ 



:(i*4i4>4iH') *i|i****4<4<4<* 



««*i|i«;ti4<*it<**4<«**** 



♦♦♦**♦*♦♦*♦***♦** 



CKSIZ 

♦ADJUST POINTEES* 

♦ TO BIGHT * 
♦JUSTIFY EDITED ♦ 

♦ FIELD ♦ 

♦ * 

4:f :*:«** «:f 41 41** ^'♦♦♦^ 



♦♦♦♦ 




♦ ♦ 




♦ D2 ♦-> 




* ♦ 




♦♦♦♦ 


GT . '. 


D2 ♦. 


.* ♦. 


.♦SIGNIFICANT* 


♦. CHAE ?OUND 


♦ . YES 


? .♦ 



♦.FLOATING $ ? .♦- 



♦ ♦♦♦ 
SVCHB 

♦♦♦♦*F2 **♦♦♦♦♦♦*♦ 



jt^^^it:************** 



OTHE .♦"next CHAe'^. /21 
*,0F EDIT HOED .* 



* /20 



LOAD V 

:|>***:)IH2 ♦♦*♦♦♦♦**♦ 



:^:t*************** 



STCH V 

****«j 2 ♦♦♦♦♦♦♦*♦♦ 



D3 *. 
,* 
.♦ 
->♦. DIGIT = 



♦**##D4 *****♦♦*♦* 



iH:****i^********if* 



♦♦♦♦♦j3 ***»♦*♦*♦♦ 



iH*>)L!H:*lt:********* 



G3 



♦ . 



.♦SIGNIFICANT*. 

->♦. CHAE FOUND . 

♦. YET ? .* 

+ . .* 

♦. .♦ 

♦ YES 



*****Q1( *♦**♦*♦*♦♦ 



♦SET SIGNIFICANT* 
->*CHAEACTEE FOUND*- 



♦*♦♦♦♦***♦»**♦♦♦♦ 



CHFLT .*. 

G5 *. 
.* *. 
.♦ ♦. N 
>♦. FLOATING $ 7 .*- 



+ . 



* YES 



♦****H5 ♦♦♦*♦***♦♦ 



♦********♦*****♦♦ 



+♦♦***♦♦*♦♦*♦♦**♦ 



YES . 


♦ 


END OF 


, ♦. 


♦ 


FIELD ? 

♦ . 

♦. .♦ 


♦ *♦♦ 




♦ H 


♦ 
F2 J 




1 


♦ ♦♦♦ 




♦ ♦♦♦ 
♦ 

♦ D2 
♦ 

♦ ♦♦♦ 



**»**K3****^++^++ 



^^^i^i^l^i^*i^^******** 



♦♦♦♦♦KH ♦*♦**♦**** 
*EGMV2 _ ♦ 

->+!10VE FIELD INTO*- 

♦ I/O AEEA * 

♦ ' ♦ 



♦♦»*K5 ********* 

* * 

f EETUEH * 

* * 
*♦+♦**♦♦******* 
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**♦♦ A 1 *♦♦**+**♦ 
♦EKIEH VIA LIBF ♦ 

* SEQIO * 

* * 
******♦♦♦♦***♦+ 



.♦IS THJ3RE A ♦. YES 

. TEBMIHATING .♦ 

*.EBEOR ? .* 



*****23********** 



["lie 



****♦**♦****♦***♦ 



****B<I ********* 

* ♦ 

* BETOKN * 

* * 
*************** 



. *EEAD/WEITE *. 

. IKDICITOE A . 

*.READ CODE.* 

*. 7 , * 



r 



K IS riLE *. NO 

UPDATE WITH .* 

". BEAD ? .* 



E1 *. 

.*HAS BEC+. 

NO ,* UPDATE IN 

PEESENT 

♦.BUFFEE ? . 



*. 



♦**F1 ♦♦*****♦**♦ 



.* IS FILE * 
. UPDATE »ITH 
♦.WBITE ? .* 
*. .* 



*****-E2********** 

* SET SWITCH TO * 

* INDICATE EEC ♦ 

* UPDATE IN ♦ 
♦PBESENT BUFFEB ♦ 

* * 
***************** 



.* *. *♦** 

.*IS FILE AN *. YES ♦ * 
->*. INPUT TYPE ? .* >* G1 * 



*****f2********** 



**************** 

**** 

* * 

* G1 ♦-> 

* * 

♦♦***G1 ********** 



**************** 



n 

*** 



***************** 



.*END-OF-BL0C*. YES 



***K1 *********** 

* * 

— DO A BEAD 
* * 

**************** 



*****H2********** 

* ♦ 

* POST * 
->* END-OF-FILE *- 

* EETUBN CODE ♦ 

* ♦ 
***************** 



****J2********* 

* ♦ 

* BETUEN * 
» * 

*************** 



***G3 *********** 
HEITE THE BLOCK* 



**************** 



****QH********* 
* * 

» EETUEN * 

► * 

*************** 



****H3 ********* 

* * 

* EETUEN * 

* * 
*************** 
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*EBTER VIA LIBF * 

♦ SEQOB * 

* * 

:^1,^ll,^m*:f ******* 



♦♦***B2 ********** 



♦♦♦*♦*♦♦**♦*♦♦*♦* 



♦♦♦*B3** ******* 

* * 

* EETUEII * 

* * 
♦♦♦*+♦********* 



V 

.♦. 
CI *. 

.♦ARE EEC*. 
.*S12E 8 # OF*. 
.SECTORS VALID. 



.*. 

D1 *, 
.* DOES *. 
* DFI TABLE * 

HAVE OUTPUT 

*. FILE . .* 

*.INDIC.* 



* YES 



**«**£ 1 ********** 
•SET RECORD ADDR* 

* POINTER TO ♦ 
♦BUFFER LOC; SET* 

* HEC#=1 * 

* * 
***************** 



****«f1 ********** 

* ♦ 

* POST 'FILE ♦ 

* OPEN* RETURN ♦ 

* CODE * 

* * 
***************** 



****G1 ********* 

* 4 

* RETURN t 

* 4 
*************** 



****C3 ********* 
*EHTEE VIA LIBF * 

* SEQCL * 

* * 
**++*****♦***♦* 



**** 

* * 

* DU * 

* * 
***♦ 



*****D4 ********** 

* POST 'FILE * 
♦CLOSED' CODE IN* 

>* RETURN CODE *- 

* WORD * 

* * 
***************** 



*****EU ********** 



***************** 



*****F4 ********** 



.*IS DISK*. 
.* WRITE 
► . NEEDED FOR 



***************** 



******Q4 *********** 



****D5 ********* 

* » 
->* RETURN ♦ 

* * 
*************** 



****F5 ********* 
► * 

* RETURN * 
» * 

*************** 



************* 



**** 

* * 

* D4 * 

* * 
**** 



Chart MR. Sequential Disk Subroutine (Part 2 of 2) 

Part Two: 1130 RPG Object Program 147 



♦♦** A 1 ***«***•* 
♦ENTRY Vli LIBF * 

* DAOPS * 

* * 



*•♦* A3 ********* 
*ENTHY VIA LIBF * 

* DAIO * 

* * 
*************** 



.*BDFFES ADDE*. 

♦.ON EVEN HOHD .* 

♦.BOONDAKT .* 



.*IS BEC SIZE*. 

•. 6 # OF HECS .« 

♦■VALID 7 .* 



«****01 ********** 

* , * 

* POST 'FILE * 

* OPEN' HETHDN * 

* CODE * 

* * 
*****««*****4'**** 



****£1***«*4i*** 
*• * 

* EETDHN * 

♦ * 
*♦♦*****♦**♦♦♦* 



*****B2 ********** 



»****i(<***« «:»****« 



****C2 ********* 
» * 

* EETORN ■• 

* 4 

*********4<****>» 



.* IS BETOEH *. 
.CODE TEEHINAL. 
*. ? .* 



.* RELATIVE 
♦.EEC * NEG. 
*. ODTSIDE . 
♦.FILE .* 



*****E3****^+**** 

♦ * 

♦ CALCOLATB ♦ 
♦SECTOR ADDE OF ♦ 

♦ EEC ♦ 

♦ * 

♦ ♦♦♦♦***********4' 



*****Blt **♦♦****♦* 



*«*«****4<*4r*:(i**:|i4i 



**^^C4 ********* 
l< * 

"■ RETURN ♦ 
» * 

**************:» 



.* DOES EEC *. NO 

. ADDB = ADDE .* 

*. READ ? .♦ 



.* IS ♦. YES 

->♦. OPERATION A .♦ 

♦, WRITE 7 .♦ 
+ . .♦ 
♦. .* 
* NO 

V H5 



♦****F5 ****♦♦♦♦♦* 



***********>|i**:^4i* 



****G1 ********* 
*ENTRy VIA LIBF * 

* DACLS ♦ 

♦ * 
*************** 



•♦***H1 **♦♦«♦*♦** 

* * 

♦ POST 'FILE ♦ 
♦CLOSED' RETEON * 

* CODE * 

♦ ♦ 
***************** 



**** J 1 ********* 
* * 

f HBTOSN * 
► * 



**4>***H3*********** 



******4c*4(:4c*** 



****J3 ♦♦♦****** 

' * 

» RETORN ♦ 
* ♦ 

*************** 



*****]{ I|********** 



***************** 



****J4 ********* 

* ♦ 

* RETDEN ♦ 
» * 

♦****♦**♦****** 



♦***G5+^******* 
* * 

I" EETORN * 
K * 

*************** 



***♦ ■ 
* 
* H5 

♦ ♦** 

******f]5 *********** 



•n 



************* 
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****S2 ********* 
♦ENTBY VIA LIEF ♦ 

* ISLD 1 

* * 



.*IS THE FILE*. NO 

OPEN ? .* 

*. .* 



*****B3 ********** 



♦*♦*♦***+*****♦*♦ 



****B4 ********* 
« * 

K BETDEN * 
» * 



C2 *. 

.*IS THE *. 

.*HETURN CODE*. 

. TERMINAL 7 . 

*. . * 

*. 



*. 



♦ NO 



.*iEE KEYS IN*. 
► . SEQUENCE 7 .' 



.*. 

F2 *. 

.*IS THIS*. 

.*THE NHD OF 

. CYLINDER 

♦.SECTOR 7 . 



*****G2 ********** 



**♦♦**♦♦♦*♦*♦**♦♦ 



**+**E3 ********** 

* UPDATE REC * 

* COUNT S PD * 
>* ADDRESS *- 

* POINTERS ♦ 

* * 
***************** 

**** 

* ^ 

* F3 *- 

* < 
***♦ 

***F3*********** 



* 1 

•1 



**************** 



*****I'1( ********** 



***************** 



*****F5********** 

♦ * 
♦RESET PD RECORD* 

>* ADDRESS S * 
♦RECORD COUNTER * 

* * 
***************** 



*****H3 ********** 

♦ UPDATE INDEX ♦ 
->* POINTERS 8 ♦- 

♦ COUNTER ♦ 

♦ ♦ 
***************** 



***J 2 *********** 



**************** 



*****J3 ********** 

* * 

* RESET INDEX * 
->* POINTER 6 * 

* COUNTER * 

* * 
***************** 
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*ENTEY VIA IIBF * 

* ISIDO ♦ 

* * 
*************** 



*ENTBY VIA LIBF ♦ 

* ISLDC * 

* * 



.* ABE EEC ♦. 

SIZE 

♦.BECS/SECI,* 



,* APE *. 
.♦INDEX SIZE *. NO 

6 # OF . * 

♦.ENTHIES/ .* 



E2 ♦. 
.* ABE *. 

.♦ BOFFEE ♦. N 
.ADDBESSES ON .*- 
*, EVEN ,♦ 
*.BOUHD.* 
*. .* 
* IBS 



* * 

* INITIALIZE * 
♦NEEDED FOINTEBS* 

: <'•: 

****** *4i«*«***«4i* 



«****(32 ********** 

* * 

* POST 'FILE * 

* OPEN' BETOBN *- 

* CODE * 

* * 
***************** 



*****g3 ********** 



***************** 



****Blt ********* 

* * 
->• BETUBH * 

* * 
*************** 



*****g5********** 

* * 

* BUILD * 

* EHD-OF-FILE * 

* HECOBD * 

* * 
***************** 



*****C5*** ******* 



***************** 



***D5 ♦♦**♦****** 

* HBITE LAST * 
^ INDEX 6 DATA 
* BUFFEBS * 

**************** 



*****E5********** 



***************** 



***F5 *********** 

HBITE LABEL ON * 
FIBST SECTOE OF 
* FILE * 

**************** 



*****G5********** 

* * 

* POST 'FILE * 
♦CLOSED' EETOBN * 

* CODE * 

* * 
***************** 



****H5********* 

* * 

* BETOBN ♦ 
» 4 

*************** 
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*ENTRlf VIA LIEF * 

* ISAD * 

* 4 



.* IS HETUHB *. YES 

*.CODE TBHINAL .* 

*. ? .♦ 



♦****B3 ♦♦******♦♦ 



nf**^'**********^** 



♦ ♦ 
->* RETURN ♦ 

* * 
*************** 



*****j^2********** 

* * 

* LOCATE INDEX * 

* ENTRY FOR NEW * 

* RECORD * 

* * 
***************** 



.*DOES RECORD*. HO 

*.G0 IN PD AREA.* 

*. 7 .* 



*****f2********** 
*LOCATE UHEBE TO* 

* PLACE HEW ♦ 

* RECORD, THEN * 

* PLACE IT * 

* * 
***************** 



***Q2*********** 

* * 

WRITE IT 

* * 

**************** 



*****^2********** 

* * 

♦RELOCATE RECORD* 
♦FOLLOWING ADDED* 

* ONE * 

* * 
***************** 



*****J2 ********** 



* UPDATE INDEX 



***************** 



sli*««K2********* 
l> * 

► RETURN * 
•> * 

*************** 



***4>*E3 ********** 



***************** 



«**E<t *********** 

* * 

-> WRITE IT _ 
* * 

**************** 



*****^^********** 

* * 
♦UPDATE INDEXED * 

->* OR SBQ LINK * 
*CONTHOL FIELDS * 

* ♦ 
***************** 
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*♦*♦ A 1 ♦♦♦****** 
♦ENTRY VIA LIBF * 

* ISADO * 

* * 



*ENTSY VIA LIBF * 
+ ISADC ♦ 
* ♦ 



.* INDEX *. 

. * BOFFEE ON *. ( 
.EVEN BOUNDARY. *- 



♦♦♦D1 *♦**♦♦***** 
HEAD FILE LABEL* 



**************** 



.*D0 KEY *. 

.* & REC LNG *. 

. OF LABEL = .* 

*. THOSE OF .* 

*.DFI 7.* 



♦♦+**B2 ********** 



*♦**♦♦******♦***♦ 



* YES 



*****F1 ********** 

* * 

* MOVE LABEL * 
*INFOEMATION TO * 

* DPI * 

* ♦ 
***************** 



***Q-\ *********** 



**************** 



*****H1 ********** 



***************** 



***** J ■[********** 

* * 

* POST 'FILE * 

* OPEN' BETDKN ♦ 

* CODE * 
» * 
***************** 



****B3********* 

* * 

* RETOKN ♦ 

* * 
*************** 



***♦ +54 ********** 



***************** 



***CI» *********** 



******♦+***♦*♦*♦ 



*****D1( ********** 

* * 

* POST 'FILE * 
*CLOSED" RETOEN * 

* CODE ♦ 

* * 
***************** 



****E4********* 
k * 

* EETUBN * 

* * 
*************** 



Chart MU. ISAM Add Subroutine (Part 2 of 2) 



152 



♦ESTEY Vli LIBF * 

* ISEQO * 

* * 



.♦. 

B1 *. 

.* ♦. 

.♦ ABE DFI *. 

, ENIBIES VALID. 

*. ? .* 



**♦♦ 
*01 ♦ 
* B2 



'1 



**♦* 
♦01 « 

♦ B3 

* 4 
**♦♦ 



.*. 

C1 ♦. 

.* *. 

.♦LABEL KEY 8*. 

N.BEC LNG = DFI. 

*. ? ,* 

♦ . . ♦ 

*. .* 

* lES 



« « 

*SET UP DFI BITH* 

* DEEDED LABEL * 

* DATA ♦ 

* * 



♦♦*£1*f ««****♦«♦ 



*:!t*^,H!****if****** 



* SET OP INDEX ♦ 

* POIHTEESj SET * 

* PBIHE DATA ♦ 

* BOHBEE TO * 

* * 



♦♦♦♦♦Gl ********** 

* * 

* POST 'FILE * 

* OPEN' HETOBN * 

* CODE IN DFI * 

* * 
***************** 



♦****B2 ********** 

* * 
♦POST 'INVALID' * 

->*BETUBN CODE IN *- 

* DFI * 

* * 
***************** 



1 



****B3********* 

* * 
->* EETUEN *<- 

* * 
*************** 



****G3 ********* 
*ENTEY VIA LIBF * 

* ISEQC * 

♦ 4 
*************** 



H3 *. 

.* *. 

.*IS UPDATE- * 

*.WBITE SWITCH 

*. ON ? .* 



*****J3********** 



***************** 



♦***K3 ********* 
* 

► EETUEN * 
K * 

*************** 



****Alt ********* 
♦ENTEY VIA LIBF * 
* ISETL * 



*************** 




* SEAECH INDEX 

* FOE LOW LIMIT * 

* KEY * 

* ♦ 
**+*♦*♦********** 



V 
.*. 
D4 
.* 
.* IS EECOED 
*.0N OVEEFLOW 
*. 

*. .* 



*. 



****+D5 ********** 

* * 
*SET SWITCH FOE * 

->* LOW EECOED ON * 

* OVEEFLOH * 

* ♦ 
*♦♦*♦****♦***♦**+ 



*****SH********** 

* TDEN ON SETL * 
*SWITCH, SET PD * 

* EEC. NO. 6 PT * 

* TO FOUND EEC * 

* * 
***************** 



*****-pH********** 
*SET INDEX NO. 6* 

* POINTEE: TUEN * 
-* HPDATE-WEITE * 

* SWITCH ON * 

* * 
***************** 



***Hlt *********** 
WEITE LAST DATA* 



**************** 
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4[«4>*A2 ********* 
*BNTHY VIA ilBF * 

* ISEQ * 

♦ ♦ 
>)i*4>***** ******* 



,* IS FILE 
► . OPEN " 
*, 



LE *. MO 



***** 
1 * 

B2* 



C2 

IS SETl 



.*IS UPD4TE- *. 

*. WHITE SWITCH . 

*, OH ? .* 



.♦DOES RECORD*. 
.HUNBEH = ? . 

*, .* 



«**Q2 *********** 



*****C3 ********** 



***************** 



L 



**** 
* 1 * 

>* B3 * 



i,**j)3*********** 



* BBITE THE 
-> BECOBD 



:t*************** 



L 



**** 
* 1 * 

>* B3 * 



**** 
it**'Z%*********** 
* BEAD FIBST * 



**************** 



.* BSD OF *. YES 

->*. OVEHFIOW .* 

*.CHiIB 7 .♦ 



9*** 

L 



* BEAD 


HBXT * 


BECOBD 


* * 


**************** 


**** 




* * 




* H2 *-> 




* * 




**«* 




.♦. 


H2 *. 


,* *. 


.♦END OP FILE*. HO 


♦ . ? .* 1 


♦ . .♦ 


♦ . .* 


*. .* 


* YES *•♦•♦ 




* 1 ♦ 




* B3* 




« « 




♦ 




' 


*****;j2********** 


* * 


♦POST EO 


R IN DFI* 



*****^n********** 

* * 

* SET BECOBD * 
->* NOHBEE AHD * 

* ADDBESS * 

* ♦ 
***************** 

**** 

* * 

->♦ H2 ♦ 

« * 

*♦♦♦ 

♦♦♦PU *********** 

BEAD NEXT INDEX* 
-> ENTBY 

* * 

1,*************** 



***QH*********** 



**************** 



***************** 



L 



**** 
* 1 < 

>♦ B3 
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♦ENTRY VIA IIBF * 

♦ ISHDO ♦ 

♦ ♦ 



.♦. 

B1 *. 

.*IS TYPE*. 

.* CODE FOB ' 

BANDOH 

*.BETBIEVE .' 

*. ? .♦ 



♦ YES 



.*. 
CI ♦. 
.♦ ARE *. 
.* ADDR OP *. HO 

*.DATA 6 IHDEX .* 

*. BOPFEBS .* 

*.0H EV.* 

♦ . .♦ 

YES 



« ♦ 

*EEAD ISAH PILE * 

* LABEL INTO * 
» IKDEX BUFPBR * 

♦ * 



El ♦. 
.*D0 KEY *. 
.♦ LEN 6 REC ♦. KO 

.SIZE OP FILE^.* 

♦. « THOSE .* 
*.FEOH .* 
♦ . •* 
* YES 



«***4>F1*4'**4>***** 

* * 
♦HOVE IHFO PEOH * 
*ISAH PILE LABEL* 

* TO DPI TABLE * 

* * 



«4it**G1 ♦*♦***♦*♦♦ 

♦ ♦ 

* PLACE HORD * 
•COOHTS IM INDEX* 
*e DATA BOPPEBS * 

• * 
***4<************* 



**«I]1 *********** 
BEAD FIRST 
*IHDBX SECTOR * 
INTO INDEX 
* BOPPEB * 

4iiti«**«*4i*D<****** 



«4.*«*J1 ***«***««♦ 



4i***4i«******««4>*« 



4i*««4iK1 ********** 



***** ***«*«*♦«««* 



*****B2 ********** 



***************** 



****C2********* 
> « 

!■ RETURN ♦ 
* * 

*************** 



****«J2 ********** 



*SET RETURN CODE* 
->* TO HEX 5555 * 



***************** 



****K2********* 
» ♦ 

* BETtJBS * 

» * 

*************** 



****A3********* 
*EHIRY VIA LIBF ♦ 

* ISBD * 

* * 
*************** 



.*. 

B3 *. 

.* *. 

. *DOES EETORN*. 

.CODE CONTAIN . 

*. ERROR ? .* 



*****Q4 ********** 



C3 ♦. 
.♦IS THIS*. 
.* UPDATE *. YES 

. FILE. WITH .* 

♦.VEIIE 7 .* 
*. . * 
♦ . .♦ 
* SO 



***************** 



♦♦♦en*********** 
♦ * 

-> PERFORM WRITE — 
* * 

**************** 



D3 *. 
• * IS *. 
.♦FIRST-TIME ♦. YES 
► .SWITCH ON ? .* 



E3 

.*IS EEC ♦. 

.* KEY < *. 

•.PRESENT INDEX. 

*, ENTRY .* 

*. .♦ 

*. .♦ 



*****Dt|********** 

* * 

* SEARCH INDEX * 
->* FROM THE ♦ 

* BE6ENNING * 

* * 
***************** 



*****p3********** 



♦CONTINUE SEARCH* 
♦FBOH THIS POINT* 



***************** 



*****G3«********* 



♦ FOR RECORD 

* ♦ 
***************** 



H3 *. 
.* *. 
.*WAS RECORD *. 
*, POUND 7 

*. .* 



*****j3********** 



♦SET ADDRESS OF * 
♦ BECOBD ♦ 



***************** 



****K3********* 
» * 

♦ RETURN * 

* * 
*************** 



*****HU********** 

♦ * 
♦POST 'HO RECORD* 

->* POUND' BBTUEN * 

♦ CODE * 

♦ * 
***************** 



****Jlt****^**** 
K * 

* RETURN * 
> ♦ 

*************** 



****B5*^******* 

♦ ♦ 

♦ HETUBN * 

♦ * 
*************** 



****C5****^^*** 

* * 

* RETURN * 

* ♦ 
*************** 



****E5***^^**** 
♦ENTRY VIA LIBF ♦ 

♦ ISRDC ♦ 

♦ ♦ 
*************** 



*****P5********** 

* ♦ 

* POST 'FILE * 
♦CLOSED' RETURN ♦ 

♦ CODE * 

♦ ♦ 
***************** 



****G5********* 

* * 

* RETURN * 

* * 
*************** 
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Move From I/O Buffer to Core (Chart MA ) 

Description of Operation 

This subroutine has two entry points 
(RGMVl, RGMV5) and is used to move fields 
from the input I/O area to the fields as- 
signed core storage area during execution 
of the RPG object program. 

RGMVl ; This routine begins by testing the 
first parameter for packed or unpacked 
format. If the format is packed, then 
it is necessary to determine from the I/O 
displacement (relative to, the first char- 
acter of the I/O area) whether the field 
starts on the first half of a word or 
the second half of a word. The address 
of the first position of the I/O area is 
in PR2 . The routine then moves the field 
to the assigned fields area in an unpacked 
format. 

RGMV5 ; This is another entry point into 
the routine at RGMVl which will initialize 
RGMVl with the field control word from the 
calling sequence rather than the TO field 
location. If the field is n\americ, the 
sign position will be forced to /F by 
RGMV5 in the matching records hold area. 

Calling Sequences 



LIBF 
DC 



DC 

LIBF 
DC 
DC 



DC 



RGMVl 

Zxxx where Z=0 if unpacked 
=1 if packed 
xxx=displacement of the 
I/O area 
address of the I/O field 
RGMV5 

Zxxx (same values as above) 
address of the TO field location in 
the matching fields hold area 
field control word where 
bits 0-7 = length - 1 
bits 8-15= /OO if numeric 

= /FF if alphameric 



If bit of the first parameter contains a 
2, positive signs will be removed from the 
field as it is moved into the I/O area. 
If the bit is 3, zero suppression and sign 
removal is done on the field as it is 
moved . 

Calling Sequence 



LIBF 


RGMV2 




DC 


Zxxx where Z = 


for unpacked 




= 


1 for packed 




= 


2 for X edit code 




= 


3 for Z edit code 




XXX = 


displacement of the 
I/O area 


DC 


address of the 


From field 


MOVE 


(Chart MC) 





Description of Operation 

This subroutine has a single entry point 
(RGMV3) and is used to perform the RPG 
MOVE operation for all fields. The field 
pointed at by the second parameter of the 
calling sequence is moved into the field 
pointed at by the first parameter and is 
right-justified within the field. 

Calling Sequence 

LIBF RGMV3 

DC address of the TO field 

DC address of the From field 

MOVEL (Chart MC) 



Description of Operation 

This subroutine has a single entry point 
RGMV4) and is used to perform RPG MOVEL 
operations for all fields. The field 
pointed at by the second parameter in the 
calling sequence is moved into the field 
pointed at by the first parameter and is 
left-justified within the field. 



Move From Core to I/O Buffer (Chart MB) 

Description of Operation 

This subroutine has a single entry point 
(RGMV2) and is used to move fields from 

their assigned core locations into an out- 
put I/O area. 

The routine begins by testing the first 
parameter for packed or unpacked output 
format. If the format is packed, it then 
determines from the I/O displacement 
(relative to the first character of the 
output I/O area) whether the field starts 
on the first half of a word or the second 
half of a word. 



Calling Sequence 

LIBF RGMV4 

DC address of the To field 

DC address of the From field 

Alphameric Compare (Chart MD) 

Description of Operation 

The alphameric compare subroutine has a 
single entry point (RGCMP) and is used to 
perform the compare" operation for alpha- 
meric fields. The fields in Factor 1 and 
Factor 2 are compared for length first: 
the shorter will be extended with blanks. 
Then, the values are compared with Word 
12 3 + XR3 in the FAC being set as follows: 
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Condition 



Setting 



Description of Operation 



Factor 1 > Factor 2 
Factor 1 < Factor 2 
Factor 1 = Factor 2 

Calling Sequence 



Positive non-zero 

Negative 

Zero 



LIBF RGCMP 

DC address of Factor 1 

DC address of Factor 2 



If the designated opera 
+ or high condition and 
er contains an address, 
set on (/OOOl) . If the 
and the second paramete 
dress, indicator Y is s 
suit is or equal, and 
er contains an address, 
set on. If there is no 
fied, the associated pa 
tain /OOOO. 

Calling Sequence 



tion results in a 
the first paramet- 
the indicator is 
result is - or low 

r contains an ad- 

et on. If the re- 
the third paramet- 
indicator Z is 
indicator speci- 

rameter will con- 



Test Indicators (Chart ME ) 

Description of Function 

The test indicators subroutine has one en- 
try point (RGSIl) and is used to test the 
condition of the control-level indicator 
and up to three more indicators on a calcu- 
lation operation. 

Description of Operation 

The control-level and up to three addition- 
al indicators are tested on a calculation 
operation. Bit of each indicator will 
be set to 1 if the test is for a not condi- 
tion. If conditions are met, return will 
be to the word following the last paramet- 
er in the calling sequence. If conditions 
are not met, return will be to the next 
calculation specification. 

Calling Sequence 



LIBF 
DC 



DC 



RGSIl 

Bits 0-2 = the niamber of parameters, 

including this parameter. 

Bits 3-15 = displacement from this 

DC to next calculation operation. 



DC 
DC 
DC 



address of control- 
level indicator 
address of indicator X 
address of indicator Y 
address of indicator Z 



from 1 to 4 
indicator 
addresses . 



LIBF 
DC 

DC 

DC 



RGSI2 

address of indicator X 
(+, high, 12-zone, or X'CO') 
address of indicator Y 
(-, low, 11-zone, or X'D.O') 
address of indicator Z 
(0, =, all other zones) 



Set Indicators On or Off (Chart MF ) 

Description of Operation 

The set indicators on (SETON) entry point 
(RGSI3) may be used to set on (/OOOl) as 
many as three indicators. The last pa- 
rameter present will have bit 0=1 to stop 
the operation and return to the next in- 
struction after the last parameter in the 
calling sequence. 



Calling Sequence 

LIBF RGSI3 

DC address of indicator X 

DC address of indicator Y 

DC address of indicator Z 



One to three 
of these pa- 
rameters may 
be present. 
Last one wil] 
have bit 0=1. 



The set indicators off entry point (RGSI4) 
is used for SETOFF and TESTZ operations, 
and for clearing indicators before arith- 
metic or compare operations. Up to three 
indicators may be cleared and the last pa- 
rameter in the calling sequence will have 
bit 0=1 to stop the operation and return 
will be made to the instruction following 
the last parameter. 



Set Resulting Indicators (Chart ME ) 

Description of Function 

The set resulting indicators subroutine 
has one entry point (RGSI2) and sets re- 
sulting indicators dependent upon the re- 
sult of an arithmetic or compare or TESTZ 
operation. 



Calling Sequence 



LIBF 


RGSI4 


DC 


address of 




indicator X 


DC 


address of 




indicator Y 


DC 


address of 




indicator Z 



One to three of these 
parameters may be 
present. Last one 
will have bit 0=1. 
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Test for Zero or Blank (Chart MF) 



Record ID Conversion (Chart MH) 



Description of Operation 

The test for +, -, or blank subroutine 
(entry point RGSI5) tests a field for 
these conditions and sets a word (XR3+12 3) 
in the FAC as follows: 

• Numeric field 



plus 


/OOOl 


minus 


/8000 


zero 


/OOOO 



• Alphameric field 

blank /OOOO 
non-blank /OOOF 

The +, -, or blank indicator will be set 
by linking to RGSI2 using the FAC. 

Calling Sequence 

LIBF RGSI5 

DC address of the field 

Test Zone (Chart MG) 

Description of Function 

The test zone subroutine has a single en- 
try point (RGTSZ) and is used to test the 
zone of an alphameric field. 

Description of Operation 

The zone of the leftmost position of the 
field supplied is tested and a word in 
the FAC (Index register 3+123) is set as 
follows: 

• If zone is a 12-zone or the same zone 
as a letter A or an ampersand (&) , set 
word to non-zero position. 

• If zone is an 11- zone or the same zone 
as a letter J or a minus (-) , set word 
to negative. 

• If zone is any other zone, set word to 
zero. 



Description of Operation 

The record ID conversion subroutine has a 
single entry point (RGCVB) and is used to 
convert the record ID supplied by the RAF 
field or chaining field into a two-word 
binary number for direct access processing. 

Calling Sequence 

LIBF RGCVB 

DC address of the field to be converted 
DC address of the two-word hold area 
for the converted result 

Object Time Error (Chart MI ) 

Description of Function 

The object time error subroutine has a 
single entry point (RGERR) and is used to 
give the operator an opportunity to ter- 
minate or continue if an error occurs. 

Description of Operation 

An error number is loaded into the accum- 
ulator and a wait state is entered at 
$PRET. The operator must reply with /OOOO 
to terminate or /OOOl to bypass record and 
continue. If the decision is terminate, 
the EOJ address is calculated in the 
Fixed Driver and a branch is made to that 
address. The bypass and continue option 
returns to the word following the calling 
sequence. 

Calling Sequence 

CALL RGERR 

DC YXXX where Y=0 if error is termin- 
al, or 1 if error may be by- 
passed to continue the job. 
XXX = a three digit error 
number . 



Blank After (Chart MJ) 



Description of Function 



Calling Sequence 



CALL 
DC 



RGTSZ 

address of the field to be tested 



The blank after subroutine has one entry 
point (RGBLK) and is used to set output 
fields to blank if the field is alphameric, 
or zero if the field is numeric. 
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Description of Operation 



Description of Operation 



The length of the field and its status 
(numeric or alphameric) is determined. If 
the field is numeric, all words are set to 
/OOOO. If the field is alphameric, all 
words are set to /0040. 

Calling Sequence 

LIBF RGBLK 

DC address of the field to be zeroed 
or blanked 

Add, Subtract and Numeric Compare (Chart 

my ' 

Description of Functions 

This subroutine has three entry points, 
RGADD, RGSUB, and RGNCP. 

RGADD ; This entry point is for the add 
function. Add will take the input data 
from factor 1 and factor 2 , remove the 
zones, and align the two fields to their 
decimal points. If the signs of factor 1 
and factor 2 are the same, the two factors 
will be added to form the result, with the 
sign of the result being the same as the 
factors. 

If the signs are not the same, the two 
factors are compared to see which factor 
is larger. If factor 1 is larger, factor 
2 will be subtracted from factor 1 and the 
result will have the sign of factor 1. If 
the factor 2 is larger, factor 1 will be 
subtracted from factor 2 and the result 
will have the sign of factor 2. 

Upon completion of the operation, the re- 
sult will be moved to the output field 
specified by the calling sequence. A 
zone of 'F' will be attached to all digits 
unless the result is negative, in which 
case a sign of 'D' will be inserted. 

RGSUB ; This entry point is for the sub- 
tract function. For subtract, the sign of 
factor 2 is changed and processing con- 
tinues as in the add function. 

RGNCP: This entry point is for the numeric 
compare function. Numeric compare takes 
the input data from factor 1 and factor 2, 
removes the zones, and aligns the two 
fields to their decimal points. The two 
fields are then compared. Upon completion 
of the compare, an indicator is set to in- 
dicate the result of the compare and a 
return is made to the calling routine. 



When the subroutine is entered, a switch 
is set to indicate what type of operation 
is to be performed (add, sub or numeric 
compare) after which an initialization 
routine is entered to retrieve the calling 
sequence and set up work areas within the 
program to correspond with the entries in 
the calling sequence. The work areas for 
factor 1 and factor 2 are set to zero in 
the initialization. (If the operation is 
numeric compare, the result field is not 
initialized.) After initialization, the 
contents of factor 1 and factor 2 are 
moved to the work area. The zone bits 
are removed at this time, leaving one 
digit per word right justified. 

The signs are then compared to decide how 
calculations are to be performed (if the 
operation is subtract, the sign of factor 
2 has been changed) . If the signs are 
the same and the operation is add or sub- 
tract, an add operation is performed. If 
the signs are the same and the operation 
is compare, a compare operation is per- 
formed to determine which value is larger. 
If the signs are different and the oper- 
ation is add or subtract, a subtract 
operation is performed. If the signs are 
different and the operation is compare, 
the signs are again checked and the one 
with the positive sign is determined to 
be larger. The resulting indicator is 
stored and a return is made to the calling 
routine. 

To perform a compare operation, decimal 
points must first be aligned. The decimal 
points are aligned by adjusting the index 
pointers to the data fields (factor 1 and 
factor 2). The compare is performed by 
subtracting factor 2 from factor 1, If 
the result is not zero, there is an un- 
equal compare. If zero, the compare is 
equal. 

Upon completion of the compare routine, 
the operation type is checked again. If 
the operation is compare, the correct re- 
sulting indicator is stored and a return 
is made to the calling routine. If the 
operation is add or subtract and factor 1 
is equal to or larger than factor 2, the 
subtraction routine is entered. If fac- 
tor 1 is less than factor 2, the two 
fields are switched and the subtract rou- 
tine is entered. 

If the add or subtract routine is to be 
performed, decimal points must first be 



Part Two: 1130 RPG Object Program 159 



aligned as they were for numeric compare. 
The add routine is performed by adding 
factor 1 to factor 2. If the result is 
greater than ten, add six to the result, 
strip the 12 high-order bits and store as 
the result, and add one to the next digit. 
This loop is continued until the result 
field is satisfied. 

The subtract routine is performed by sub- 
tracting factor 2 from factor 1. If the 
result is less than zero, add ten to the 
result and subtract one from the next high- 
est digit of factor 1. This loop is also 
continued until the result field is satis- 
fied. 

If half-adjust is specified, it is per- 
formed by adding the low-order digit plus 
one or the result to itself. If the re- 
sult is greater than nine, add one to the 
low-order digit of the result. The result 
data is then moved to the result field 
specified by the calling sequence. A 
zone of 'F' will be attached to all digits 
unless the result is negative, in which 
case a sign of 'D' will be inserted. 

The final step before returning to the 
calling routine is to store an indicator 
in word XR3+12 3 as follows, to indicate 
the sign of the result: 

plus - /0j^01 
minus - /8j2fJ?J2r 
zero - /fS^fgffl 

Work Areas Used: 

FACTl - This 24 word work area is used to 
contain factor 1 data in the for- 
mat OOOD where D is any decimal 
digit. This work area can also 
contain the result of an add or 
subtract operation. 

FACT2 - This 2 3 word work area is used to 
contain factor 2 data in the for- 
mat OOOD where D is any decimal 
digit. This work area can also 
contain the result of an add or 
subtract operation. 

Calling Sequences 

LIBF RGADD 

DC Address of Factor 1 

DC Address of Factor 2 

DC Address of Result Field 

DC Half -Ad just Indicator 

LIBF RGSUB 

DC Address of Factor 1 

DC Address of Factor 2 

DC Address of Result Field 

DC Half-Adjust Indicator 



LIBF RGNCP 

DC Address of Factor 1 

DC Address of Factor 2 



Multiply (Chart ML ) 

Description of Function 

The multiply subroutine has a single entry 
point (RGMLT) . Multiply takes two fields 
with a maximum length of fourteen decimal 
digits and converts each word to an un- 
signed three word binary number using the 
RGDTB subroutine. These two binary fields 
are then multiplied together to form a 
three word product which is converted to 
a fourteen digit decimal number. This 
decimal field is then aligned to the deci- 
mal places specified in the result field 
and the field is stored at the assigned 
address. 

Description of Operation 

Initialization of working storage and 
saving of the index registers is performed 
on entry to the routine. The calling se- 
quence of the caller is retrieved and 
stored for future information. Both fact- 
or 1 and factor 2 are then stored in the 
work areas in arithmetic format (without 
zones) and are converted to binary by 
RGDTB. 

A loop to perform the multiplication of 
factor 1 by factor 2 in binary is then 
executed. Since the result field is a 
maximum of 14 digits, the product is 
formed in three binary words and then con- 
verted to a 14 digit decimal number through 
RGBTD. The resulting product has a number 
of decimal places equal to the sum of the 
decimal places of factor 1 and factor 2. 
This product is then aligned according to 
the number of decimal positions in the re- 
sult field. 

If half-adjust was specified, it is per- 
formed on the aligned result. This final 
number has zones placed with each of its 
digits so that it is in RPG object time 
data format and the field is stored in the 
assigned result field. The sign of the 
result is stored for the purpose of setting 
the resulting indicator as in ADD, and the 
index registers are restored to their 
original value. Control is then returned 
to the next sequential instruction in the 
calling routine. 
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External Routines Used 
RGBTD, RGDTB 
Work Areas: 

MULT Used to contain the word currently 
being used as multiplier. 

SVWRK Contains word of partial product 

during formation of the final result. 

ODWRK Contains word currently being used 
as the multiplicand. 

OVFLW Contains word of overflow in the 

Accumulator following each partial 
multiplication. 

MLTPR Contains three word binary multi- 
plier. 

MLTPC Contains three word binary multi- 
plicand, 

WORK Binary product is formed in this 
three word area. 

FACTl Contains the fourteen digit decimal 
factor 1. 

FACT2 Contains the fourteen digit decimal 
factor 2 . 

Note: The decimal result field is compil- 
ed within the area occupied by 
FACTl and FACT2 . 

Calling Sequence 

LIBF RGMLT 

DC Address of Factor 1 

DC Address of Factor 2 

DC Address of Result Field 

DC Half-Adjust Indicator 

Divide (Chart MM) 

Description of Function 

This subroutine has one entry point 
(RGDIV) . The divide function causes the 
contents of the field in factor 1 (divi- 
dend) to be divided by the contents of 
the field in factor 2 (divisor) . The re- 
sult of this operation (quotient) is 
placed in the specified result field. 

If factor 2 is zero, no processing is 
done and the error routine (RGERR) is 
called to give the operator the option of 
cancel or continue with the result field 
being set to zero. If factor 1 is zero, 
the quotient is zero and the remainder is 
zero. 

Any remainder that results from this op- 
eration is lost unless the move remainder 
operation is specified as the next oper- 
ation after divide. If a move remainder 
operation follows a divide operation, the 
result in the divide operation cannot be 
half -ad justed. 



Description of Operation 

When the subroutine is entered, initial- 
ization is performed to retrieve the call- 
ing sequence and the precision and scaling 
factors of factor 1, factor 2 and the re- 
sult field. The input data (factor 1 and 
2) is then converted from zoned decimal 
formal to decimal format without zones, 
and put into a 14 word field right justi- 
fied with high-order zeros. 

The decimal input fields are then convert- 
ed to 6 word binary fields, one for the 
divisor (factor 2) and one for the divi- 
dend (factor 1) . However, before the con- 
version to binary is performed, adjustment 
is performed if necessary. 

The divisor and dividend are adjusted by 
adding zeros to the right of the units 
position of that field. The following 
formula determines whether or not field 
adjustment is necessary. 

A = (Number decimal positions of result 

field) + 

(Number decimal positions of Factor 

2) - 

(number decimal positions of Factor 1) . 

If A = , no adjustment takes place. 
If A > 0, the dividend will be adjusted. 

If A < 0, the divisor will be adjusted. 

The amount of adjustment is determined by 
the absolute value of A in the preceding 
formula. The conversion to binary is 
accomplished by successive cumulative 
multiplications of each digit of the deci- 
mal number by A (base 16) from left to 
right. 

Next the high-order three words of the 
divisor are checked; if non-zero, the 
divisor is assumed to be larger than the 
dividend. The dividend is then stored 
as the remainder and a return is made to 
the calling routine. 

If the three high-order words of the di- 
visor are zero, the three low-order words 
are checked next. At this time a pointer 
is adjusted to the high-order end of the 
temporary quotient (4 words long) . Each 
time a word of zero is found in the di- 
visor, the temporary quotient pointer is 
moved one word to the left. If the di- 
visor is found to be completely zero, no 
processing is done, the result field is 
set to zero, and the subroutine RGERR is 
called. But, if a non-zero value was 
found, then the dividend is checked next 
for leading zero words. Each time a word 
of zeros is found, the temporary quotient 
pointer is moved one to the right. If 
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the dividend is found to be zero, the quo- 
tient is zero and the remainder is zero, 
and a return is made to the calling rou- 
tine . 

At this time, the position of the tempor- 
ary quotient pointer is tested. If the 
pointer is to the left of the 4 word 
field, the quotient is zero and the divi- 
dend is the remainder. If the pointer is 
to the right of the 4 word field, the quo- 
tient is zero and the remainder is zero. 
In both cases a return is made to the 
calling routine at this point. 

If the pointer was within the range of the 
4 word field the operation is continued by 
dividing the two high-order non-zero words 
of the dividend by the high-order non-zero 
word of the divisor. Load the result of 
the divide into the temporary quotient at 
the position pointed to by the temporary 
quotient pointer. (Temporary quotient is 
initially zero.) 

Then the three low-order words of the di- 
visor are multiplied by the four words of 
the temporary quotient. The product of 
the multiply is contained in a 7 word area. 
The 6 word dividend is then subtracted 
from the 7 word product of the last multi- 
ply. The result of this subtract is con- 
tained in a 6 word area. 

This 6 word area is checked for leading 
zeros. For each leading zero, the tem- 
porary quotient pointer is moved one word 
to the right. When the first non-zero 
word is found, the position of the tem- 
porary quotient pointer is checked and if 
it is out of the temporary quotient area, 
the divide operation is complete. If not, 
a return is made to the divide routine to 
continue the loop. 

There is only one variation to the loop: 
after the first store of the temporary 
quotient, the rest of the calculations 
made to the temporary quotient will be 
added to it or subtracted from it. This 
is determined by the subtract function. 
If the result of the subtract was nega- 
tive, the alteration to the temporary 
quotient is added to it. If the result 
was positive, it will be subtracted. 

Upon completion of the loop, the result 
of the last subtract becomes the re- 
mainder, and the temporary quotient is 
the final quotient. If half -ad just is 
specified, it will be performed at this 
time. Half -ad just is performed by com- 
paring the remainder to the divisor. If 
the remainder is more than half as large 
as the divisor, the quotient will be in- 
creased by one- The quotient is then 



converted from a 3 word binary number to 
a 14 word decimal niimber, one decimal 
digit per word. The conversion is per- 
formed by dividing the binary niomber by 
A (base 16) and storing the remainder as 
a decimal digit. The decimal number is 
formed from right to left. 

The decimal quotient is then moved to the 
result field specified by the calling se- 
quence. A zone of 'F' will be attached 
to all digits unless the result is nega- 
tive, in which case a sign of 'D' will be 
inserted. The sign of the result is, 
determined by this rule: if the signs of 
factor 1 and factor 2 are equal the result 
is positive, if the signs of factor 1 and 
factor 2 are not equal, the result is 
negative. 

The final step before returning to the 
calling routine is to store an indicator, 
as in ADD, which indicates the sign of 
the result. 



External Routines Used 

RGERR 

Work Areas Used 

DIVDN: A 6 word area used for the binary 
dividend. (Factor 1) 

DIVSR: A 6 word area used for the binary 
divisor. (Factor 2) 

QUOTN: A 5 word area used for the tem- 
porary quotient in binary. 

FACTl: A 15 word area used by factor 1, 
factor 2 and the result field in 
decimal form. 

The following are used by the multiply 
routine. 

MULT: Used to contain the word currently 

being used as the multiplier. 
SVWRK: Contains word of partial product 

for formation of final result. 
ODWRK: Contains the word currently being 

used as multiplicand. 
OVFLW: Contains word of overflow in the 

accumulator following each partial 

multiplication. 
WORK: Contains the 6 word result of the 

multiplication . 

The following is used by the subtraction 
routine. 

RED IV: Contains the 6 word result of the 
subtract operation, and also con- 
tains the remainder at the end of 
the divide operation. 
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Calling Sequence 

LIBF RGDIV 

DC Address of Factor 1 

DC Address of Factor 2 

DC Address of Result Field 

DC Half -Adjust Indicator 

Move Remainder (Chart MN) 

Description of Function 

The move remainder subroutine has one en- 
try point (RGMVR) and is used to move the 
remainder from a divide operation to a 
separate field. If move remainder is 
used, it must immediately follow the di- 
vide operation. The result of a move re- 
mainder operation cannot be half adjusted. 

Description of Operation 

When the subroutine is entered, initializa- 
tion is performed to retrieve the calling 
sequence and setup linkage with the divide 
routine. The remainder is retrieved for 
the divide routine in binary format, and 
converted (using RGBTD) to decimal. The 
decimal remainder is then adjusted to the 
specifications of the result field preci- 
sion and scale. At completion of the ad- 
justment the result is moved to the result 
field specified by the calling sequence. 
A zone of 'F' will be attached to all di- 
gits unless the result is negative, in 
which case a sign of 'D' will be inserted. 
The sign of the result of the move re- 
mainder operation is the same as the result 
of the divide operation. 

External Routine Used 

RGBTD 

Work Areas Used ; The move remainder routine 
has no work area of its own. A work area 
called Factl in the divide routine is used 
to hold the decimal remainder. 

Calling Sequence: 



to right. RGBTD (binary to decimal) con- 
verts a 3 word unsigned binary number to 
a 14 digit decimal number. The conversion 
is performed by dividing the binary number 
by A (base 16) and storing the remainder 
as a decimal digit. The decimal number is 
formed from right to left. 

Description of Operation 

A common initialization routine is used for 
both RGDTB and RGBTD. This routine re- 
trieves the parameter list and zeros the 
area in which the binary number is held. 
Entry point RGDTB retrieves a decimal num- 
ber in arithmetic format and stores it in 
the save area. The binary portion already 
formed is multiplied by A (base 16) and 
the save area is added to the low order 
binary word. This procedure is continued 
until all the decimal digits have been 
converted. 

Entry point RGBTD retrieves the unsigned 
three word binary number and divides it by 
ten. The remainder of the division is 
stored in the next low order position of 
the 14 word area in which the decimal num- 
ber is being formed. This process is con- 
tinued until the complete 14 word area has 
been filled with decimal digits. 

Work Areas: 



OVFW 



WORK 



The area which contains the portion 
of the product contained in the 
accumulator following the multipli- 
cation. It is added to the low or- 
der word of the next product. 
The area used to hold the binary 
value of the number. 



Calling Sequences: 

LIBF RGDTB 

DC Address of decimal number 

DC Address of binary number 

LIBF RGBTD 

DC Address of decimal number 

DC Address of binary number 



LIBF 
DC 



RGMVR 

Address of Result Field 



RPG Conversion (Chart MO ) 

Description of Function 

This subroutine has two entry points, 
RGBTD and RGDTB. RGDTB (decimal to binary) 
converts a 14 digit decimal number in 
arithmetic format (without zones or sign) 
to a positive 3 word binary number. This 
conversion is performed by successive 
cumulative multiplication of each digit of 
the decimal number by A (base 16) from left 



Sterling Input Conversion (Chart MP) 

Description of Function 

The sterling input conversion subroutine 
has a single entry point (RGSTI) . This 
subroutine takes a sterling field from 
the I/O area in a format consisting of 
pounds, shilling, pence, and decimal pence 
fields and converts it to pence and binary 
pence. The converted field is then stored 
in the area assigned to the field by the 
compiler in the RPG object time data 
format. 
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This routine properly converts IBM pence 
format and BSI pence and shilling formats 
to decimal form. It also supports both 
standard and non-standard sign positions. 
The zone of hexadecimal D is regarded as a 
negative zone while any other zone is re- 
garded as positive. The zone representing 
the sign is undisturbed by the subroutine 
and is placed, in the format given in the 
data record, into the assigned field. 



Description of Operation 

The subroutine first retrieves the calling 
sequence and sets work areas within the 
program to correspond with the entries in 
the calling sequence. This is also done 
with the length and number of decimal 
places that are taken from the indicator 
word preceding the assigned field. From 
the specifications the number of pounds 
positions in the unconverted field is 
calculated. 

The sign of the field is then retrieved by 
calculating the location of the word hold- 
ing the sign in core storage. If a non- 
standard sign location is specified the 
column indicated in the calling sequence 
is used. If the sign is at the standard 
location, the number of pounds positions 
is added to the beginning field locations. 
If there are decimal pence places, the 
length to the low order decimal pence 
position is then added to this previous 
total. The coliimn of the field in which 
the sign is located is now available and 
the routine at STAND determines the actual 
core storage location. The sign is then 
retrieved and stored. 

The work area, BPENC, BINNO, and WORK are 
then initialized to binary zero and the 
field is placed into WORK. The pounds 
positions of the field are then put into 
arithmetic format by removing the zones 
in the field and then are converted to 
binary and stored at BINNO. 

The value of the shilling field is deter- 
mined in binary and then is multiplied by 
twelve to convert it into pence. This 
value is added to the value of the pence 
field in binary and is stored at BINNO. 
The pounds field is converted to binary 
by multiplying by 2 40. The total non- 
decimal pence is then formed and convert- 
ed back to decimal and stored in WORK in 
arithmetic format. The zones and sign 
are inserted in the field and the field 
is stored in the assigned field position. 



External Routines Used: RGMVl, RGBTD , 
RGDTB 

Work Areas : 

SIND Set to if IBM shilling format is 

used. 

Set to 1 if BSI shilling format is 

used. 
PIND Set to if IBM pence format is 

used. 

Set to 1 if BSI pence format is 

used. 
BPENC Used to hold binary pence value of 

shilling and pence fields. 
BINNO Used to hold the binary value of 

the field. 
WORK Contains the decimal field both 

before and after conversion. 



Calling Sequence 



LIBF 
DC 



RGSTI 

/xxxz where xxx = Column 1 of field 

in I/O area 

a = 0, 

(0 for 

and 



b = 



aabc where 
|0 for IBM 
'shilling, 
1 for BSI 
shilling, 



^ ; pence 
^ U for 






pence 



DC 
DC 



Address of assigned field 

/00E2 is standard, column-1 of sign 

position if non-standard. 



Sterling Output Conversion (Chart MP) 

Description of Function 

The sterling output conversion subroutine 
has a single entry point (RGSTO) . This 
subroutine takes a decimal field from an 
assigned field area and converts it to a 
format containing pounds, shillings, pence, 
and decimal pence fields. The converted 
field is then stored in the I/O area using 
subroutine RGMV2 . This routine will con- 
vert to the format required for a printer 
file, for a field using IBM or BSI shill- 
ing format, or for a field using IBM or 
BSI pence format. If the field is to be 
edited, the output of the routine is stored 
back in the field location and the EDIT 
routine is called. This routine supports 
both the standard and non-standard sterl- 
ing sign locations. 

Description of Operation 

The calling sequence is retrieved and the 
entries are placed in work areas within 
the routine. The scale and precision are 
taken from the word preceding the field 
to be converted. The address of the I/O 
area is taken from the RPG overhead area. 
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The field is moved from the assigned field 
location and placed in arithmetic format 
(without zones) in the work area WORK. 
The non-decimal pence positions are then 
converted to binary and stored in BINNO. 
This field is then divided by 12 and the 
remainder is converted into the specified 
pence format (print, IBM, or BSI) . The 
converted pence field is placed in the 
work area WORK contiguous with the deci- 
mal pence. 

The quotient of the above division is then 
divided by 20 and the remainder is con- 
verted into the proper shilling format. 
This field is then put into WORK. Both 
the pence and shilling fields for printed 
files have the tens position zero sup- 
pressed if zero suppress is not specified. 

The quotient of the last division is then 
converted to decimal and stored in WORK. 
The converted field is moved from WORK to 
the assigned field, if EDIT must be used, 
inserting zones for RPG object time data 
format, and the routine returns to the 
caller. If EDIT is not used, zones are 
inserted in the pounds position and the 
decimal positions and zero suppression, if 
specified, is performed. The external 
routine RGMV2 is called to place the field 
in the I/O area. For a non-zero suppress- 
ed field, the location of the sign is 
calculated and the sign is inserted. Re- 
turn to the calling sequence is then per- 
formed. 



Calling Sequence 



External Routines Used 
RGMV2, RGBTD, RGDTB 
Work Areas 

SIND Set to if IBM shilling format is 

used. 

Set to 1 if BSI shilling format is 

used. 
DIND Set to if IBM pence format is 

used. 

Set to -1 if BSI pence format is 

used. 

Set to +1 for printer fields. This 

field will be modified by +1 during 

execution of the program. 
ZPIND Set to if zero suppress is used. 
EDIND Set to if edit is used. 
LPCNR Used to control looping. 
BINNO Contains the field in binary. 
WORK Used to hold both the converted and 

unconverted fields in decimal. 



LIBF 
DC 



RGSTO 

/xxxz where xxx = column-1 of field 

in I/O area 



z = 



= 



b = 



and c = 



DC 
DC 



for IBM 
printed 
pence 

1 for BSI 
pence 



yy 



aabc where a 

for IBM,) 
printed 
shilling 

1 for BSI 
shilling 

Address of assigned field 
/xxyy where xx = column-1 of sign 
position if non-standard and /E2 
if standard. 

00 - Field not to be printed 
FO - Field to be printed but 
not edited 
= ^ F5 - Field to be printed with 
zero- suppress 
FF - Field to be printed with 
edit 



Edit (Chart QX ) 

Description of Function 

This subroutine has one entry point 
(RGEDT) . The edit routine takes a decimal 
field held in RPG object time format and 
a specified edit word and performs editing 
on the decimal field. The resulting edit- 
ed field is then stored in the specified 
location in the I/O area. The routine 
performs either zero-suppression or aster- 
isk protection. Either fixed or floating 
dollar sign may be used. 

All characters other than the digit select 
characters, the significant start charac- 
ter, and an ampersand (which causes a 
blank) will be printed if to the right of 
the first significant digit, and will be 
replaced by a blank if to the left. The 
letters CR or a minus sign in the status 
portion of the edit word will be undis- 
turbed if the field is negative and will 
be replaced by blanks if positive. 

Description of Operation 

The calling sequence is retrieved and the 
information therein is stored. The ad- 
dress of the I/O area is taken from the 
RPG overhead area and the length of the 
field is taken from the indicator word 
preceding the assigned field. If a fixed 
dollar sign is specified, a dollar sign 
is placed as the first character in the 
edited area. A digit from the field is 
then retrieved. If the digit is non-zero, 
SWITC is turned on. If the digit is zero 
and SWITC is off, the fill character re- 
places the digit. The digit is stored and 
a character from the edit word is retriev- 
ed. 
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If the character is a digit select char- 
acter it is replaced in the edited result 
by the digit or fill character. If it is 
a significant start character, SWITC is 
turned on and the digit is selected. If 
it is any other character, it is placed 
in the edited field if SWITC is on. If 
SWITCH if off, it is replaced in the edit- 
ed field by the fill character. This pro- 
cess is continued until all the characters 
in the edit word have been used. 

The sign of the field is then interrogated. 
If it is positive, CR or - is blanked out. 
The edited result is then placed in the 
I/O area by routine RGMV2 . 

If floating dollar sign was specified it 
is placed in the character immediately to 
the left (of either the significant start 
character or) of the first significant 
digit. 

External Routines Used 

RGMV2 

Work Areas : 

SWITC Used to indicate whether or not a 
significant digit or significant 
start character has been encounter- 
ed. 

RESLT Used to hold the edited field. 

Calling Sequence 

LIBF RGEDT 

DC /XXXZ where XXX = column-1 of field 

in I/O area 

Z = yayb where y = 0, a = 1 if CR, 

if minus; b = 1 if sterling, 

if decimal 
DC Address of assigned field 
DC Address of edit word 
DC /XXYY where XX - length of edit 

word, YY = number of replacement 

characters 
DC /XXYY where XX = column-1 of CR/MIN 

in edit word, 

!00 if no dollar sign 
FO if fixed dollar sign 
FF if floating dollar sign 



Sequential Access (Chart MR) 

Description of Function 

The sequential access subroutine has three 
entry points: 

SEQOP Entry point for the open function 
SEQIO Entry point for the I/O function, 

and 
SEQCL Entry point for the close function, 



and is used to sequentially input/output/ 
update records of a sequentially oirganized 
disk file. 

Description of Operation 

SEQOP ; The open entry point begins by per- 
forming a check on the buffer address to 
ensure that it is on an even word boundary 
and issues a diagnostic if the address is 
incorrect. Next, the record size and num- 
ber of records per sector are checked to 
ensure their accuracy; they are diagnosed 
if incorrect. 



If the DFI indicator has an output file 
indicator code, the routine sets the re- 
cord address pointer to the buffer loca- 
tion for the placement of the first record, 
sets the record nxomber to one, and blanks 
out the data buffer. Processing continues 
for all file types by setting the return 
code to indicate the file is open and re- 
turning to the next object program in- 
struction. 

SEQIO ; The I/O function entry point be- 
gins by testing the return code in the 
DFI table to determine if the file has 
been opened. If the file is not open, a 
check is made to determine if a terminat- 
ing error had been issued and if one had, 
a diagnostic is issued. Otherwise, pro- 
cessing continues as though the file was 
successfully opened without a previous 
error. The first time the routine is en- 
tered a check is performed to ensure the 
read/write indicator is a read code and a 
diagnostic is issued if it is not a read 
code. 

If the file is an update file and a read 
is indicated by the read/write indicator, 
the routine follows the path of an input 
file. However, if a write is indicated 
for the update file, the routine sets a 
switch to indicate a record has been up- 
dated in the present buffer. This switch 
is later tested when the buffer has been 
processed and a read is indicated. If 
the switch is on, the routine performs a 
disk write before the disk read. 

If the write indication for the update 
file is on when the buffer is completely 
processed, then the disk write is per- 
formed by the routine immediately. When 
the file is an input file, the routine 
reads a sector of data into the buffer and 
sets a pointer and record counter to the 
first record in the buffer. The pointer 
and record counter are updated during suc- 
cessive reads until the buffer is pro- 
cessed, at which point another sector of 
data is read. 



166 



End of file is tested on each read and an 
indicator returned when encountered. If 
the file is an output file, the routine 
initially sets the pointer to the buffer 
location where the first record is to be 
placed and increments the pointer by the 
record size for each successive write un- 
til the buffer is full, ^t which time the 
buffer is written on disk. The pointer 
is reset to the beginning of the buffer 
and the data buffer is blanked out. The 
routine returns to the next object program 
instruction after retrieval of each record. 



SEQCL ; The close entry point is entered 
when processing for the file is complete. 
The routine begins by determining file 
type. If the file is an input type, it 
is closed by entering a code (.1) in the 
return code word of the DPI table and re- 
turns to the calling sequence. 

If the file is an output type, the EOF 
record is suffixed to the data and written 
on the file, and the file is closed by 
entering a code.(.O) in the return code 
word of the DFI table and a return is made 
to the calling sequence. 

If the file is an update file, the update- 
write switch is checked to determine if a 
disk-write for the data buffer is neces- 
sary. If it is, the write is performed. 
Then the file is closed by entering a code 
(.U) in the return code word of the DFI 
table and a return is made to the calling 
"sequence . 

Calling Sequences 

LIBF SEQOP 

DC Address of the DFI table 

LIBF SEQIO 

DC Address of the DFI table 

LIBF SEQCL 

DC Address of the DFI table 

Direct Access (Chart MS) 

Description of Function 



The direct access subroutine has three 
entry points: 

DAOPN Entry point for the open function, 
DAIO Entry point for the random re- 
trieve/update function, 
DACLS Entry point for the close function, 

and is used to randomly retrieve and/or 
update records on a sequentially organized 
disk file. 



Word 


Contents 


0,1,2 


DSA 


3 


The number of records per sector. 
The maximum entry is /0I40 (320 one- 
word records). 


4 


The length of each record in words. 
The maximum entry is/0140 (one 320- 
word record). 


5 


/OOOO for a read operation, 
/OOOl for a write operation. 


6 


The address of the data buffer. This ad- 
dress must be on an even-word boundary. 


7 


.1 for an input function, 
.O for an output function, 
.U for an update function. 


8 


The record number of the record being 
processed . 


9 


The return code * for this operation. 


10 


The address of the record being processed. 



*Return codes for 


sequential access are as follows: 


Return Code 


Meaning 


/5555 


File open 


/8010 


Disk file is full 


/son 


Write indicator with input file 


/BO 12 


Read indicator with output file 


/BO 13 


Record size exceeds sector size 


/8014 


Number of records per sector not 




maximum 


/8015 


File accessed when not open 


/B016 


Buffer not on even -word boundary 


/B017 


Write before read 


/FFFF 


End of File 


/OFFF 


File closed 



Table 13. DFI Table for the Sequential 
Access Subroutine 
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Description of Operation 

DAOPN: The open entry point begins by 
checking the buffer address to ensure it 
is on an even-word boundary. A diagnostic 
is issued if the address is incorrect. 
Next the record size and number of records 
per sector are checked to ensure they are 
correct. Again, diagnostics are issued if 
the items are incorrect. The return code 
is set to indicate the file is opened and 
the routine returns to the calling sequence 

DAIO ; To randomly retrieve/update records, 
the routine at this entry point begins by 
checking the DFI table to ensure that the 
file has been opened. A diagnostic is is- 
sued if the file is not opened or if the 
return code contains a terminating error 
type code. The relative record number is 
checked to determine if it is negative or 
if it is outside the bounds of the file 
and diagnosed if either error is found. 

A calculation is performed with the rela- 
tive record number to determine the sector 
address of the record. If the determined 
sector address is the same as the one pre- 
viously read and the operation is a write, 
the routine performs a disk write and re- 
turns to the calling sequence. If the de- 
termined sector address is the same as the 
one previously read and the operation is 
a read, the routine updates the record 
address pointer and returns to the main- 
line. If the determined sector address is 
not the same as the one previously read, 
the operation must be a read (a diagnostic 
is issued if a write is indicated) . The 
routine then performs a disk read, updates 
the record address pointer and returns to 
the calling sequence. 

DACLS ; This entry point is entered after 
the records have been retrieved/updated. 
It sets the return code in the DFI table 
to indicate the file is closed and returns 
to the calling sequence. 

Calling Sequences 

LIFE DAOPN 

DC Address of the DFI Table 

LIBF DAIO 

DC Address of the DFI Table 

LIBF DACLS 

DC Address of the DFI Table 



Word 


Contents 


0,1,2 


DSA 


3 


The number of records per sector. 

This entry must be the same as the number 

of records per sector on the file being 

accessed. 


4 


The length of the record in words. 

This entry must be the same as the length 

of the records on the file being 

accessed. 


5 


/OOOO for a read operation, 
/OOOl for a write operation . 


6 


The address of the data buffer. 
This address must be on an even-word 
boundary. 


7& 8 


The record number of the record being 
processed. Position 6 will be all zeros 
for record numbers of less than 65,536. 


9 


The return code * for this operation. 


10 


The address of the record being processed. 



*Return codes for direct access are as follows: 



Return Code 

/5555 
/8000 
/BOOl 
/8002 
/8003 
/8004 
/8005 
/8006 
/OFFF 

Table 14. 



Meaning 



File open 

Record number not in file 

Record size not within limits 

Records per sector not maximum 

Record number not positive 

Write before read 

File accessed when not open 

Buffer not on even -word boundary 

File closed 



DFI Table for the Direct Access 
Subroutine 
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ISAM LOAD (CHART MT) 

Description of Function 

The ISAM LOAD subroutine has three entry 
points: 

ISLDO Entry point for the open function, 

ISLD Entry point for the loading func- 
tion, 

ISLDC Entry point for the close function, 

and is used to load records onto an indexed 
sequentially organized disk file. 

Description of Operation 

ISLDO; The open function is the first to 
be executed when loading an ISAM file. 
Execution of the open function begins by 
checking the type code (/llll) in the DFI 
table to ensure it is a load file. A di- 
agnostic is issued if the type code is in- 
correct. The record size, number of re- 
records per sector, and key length are 
checked next to guarantee they are within 
the accepted limits. Diagnostics are is- 
sued if any of these are incorrect. 

Next, the index size, number of index en- 
tries per sector, index buffer address and 
data buffer address are checked. The buf- 
fer addresses must be on even word boun- 
daries, and the index size and number must 
be within the accepted limit or a diagnos- 
tic is issued. The diagnostics are codes 
returned in the return code word of the 
DFI table. 

If all of the above tests are satisfied, 
the routine continues by setting up the 
index entry pointer, beginning index sec- 
tor address, beginning Prime Data sector 
address. Prime Data record pointer, zero- 
ing out the key hold area, and blanking 
out the data buffer. (The sector address- 
es in the index and label are the relative 
sector addresses from the beginning of the 
file.) 

The routine then sets the return code 
word in the DFI table to indicate the file 
is open and returns to the calling sequence. 

ISLD: This entry point is used each time 
a record is to be loaded onto the ISAM 
file. When entered, the routine begins 
by checking the return code in the DFI 
table to ensure the file is opened and 
that there are no terminal type errors in 
the return code. The key of the present 
record is then checked against the key in 
the hold area to ensure the records are 
in sequence. The control field of the 
last record is set to binary zeros. 



Then a test is performed to determine if 
the P.D. buffer is full and if it is not 
full, the routine adds 1 to a record 
counter, increments the P.D. record ad- 
dress pointer to the location where the 
next record is to be located, and returns 
to the calling sequence. If the buffer is 
full, the routine performs another test 
which determines if the sector address of 
the next disk write is an end of cylinder 
sector or not. If it is not the end of a 
cylinder, the routine writes the P.D. buf- 
fer on disk, adds 1 to the sector address, 
sets the P.D. record address pointer to 
the beginning of the buffer, sets the re- 
cord counter back to one, and returns to 
the user. 

If the sector address was an end of cylin- 
der sector, the routine moves the key from 
the last record in the buffer to the key 
portions of the next index entry. A check 
is made on the index buffer to determine 
if it is full and if it is, writes the buf- 
fer on disk, and resets the index pointer 
and counter. Otherwise, the index point- 
er and counter are incremented, the data 
buffer is written on disk, the data buf- 
fer is then blanked out, the P.D. pointer 
and counter is reset, the sector address 
is incremented by one and the routine re- 
turns to the calling sequence. 

ISLDC ; This entry point is entered when 
all records have been loaded and the ISAM 
is to be closed. After all the records 
have been loaded, the ISAM file must be 
closed by entering the Load Routine at the 
ISLDC entry point. The close function 
generates the end of file record (all 1 
bits) , builds the last index entry (the 
key portions of which are all 1 bits) , 
writes the last sector of index and data 
buffer, builds the ISAM file label in the 
index buffer, writes the label on the first 
sector of the file, sets the return code 
word in the DFI table to indicate the file 
is closed and returns to the calling se- 
quence. 



Calling Sequences 

LIBF ISLDO 

DC Address of the DFI table 

LIBF ISLD 

DC Address of the DFI table 

LIBF I SLDC 

DC Address of the DFI table 
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Word 


Contents 


0,1,2 


DSA 


3 


The key length in characters. 
Maximum is/0032. 


4 


The length of the record in words. 
The maximum entry is /0I40 (one 320- 
word record). 


5 


The address of the index buffer. This 
address must be on an even-word 
boundary. 


6 


The address of the data buffer. This ad- 
dress must be on an even -word boundary. 


7 


/111! to identify the ISAM load routine. 


8 


The number of sectors required for the 
index. 


9 


The return code * for this operation. 


10 


The address of the record being processed. 


11 


The address of the index entry. 


12 


The number of index entries per sector. 
This value must be the maximum number 
of index entries that will fit on a sector. 


13 


The index entry length in words. 


14 


The number of records per sector. 
This value must indicate the maximum 

number of records that will fit on a 

sector. 


15 


The prime data record number. 


16 


The index entry number. 


17 


The address of the key hold area . 

After the close routine has been executed 

this location contains the sector address 

of the last prime data sector. 


18 


The sector address of the last index sector. 


19 


The sector address of the next overflow 
sector. 


20 


The record number of the next overflow 
record . 



*Return codes for ISAM LOAD are as follows: 



Return Code Meaning 



/5555 
/8020 
/8021 

/8022 
/8023 

/8024 

/8025 
/8026 
/8027 
/8028 
/8029 
/802A 
/OFFF 



File is open 

Not a load function 

Record size or number of records per 
sector incorrect 

Key length greater than maximum 

Index entry length not same as length 
computed from key length 

Number of index entries per sector 
incorrect 

Prime data area is full 

Index area is full 

File is not open 

Index buffer not on even -word boundary 

Data buffer not on even-word boundary 

Input record out of sequence 

File is closed 



Table 15. DFI Table for the ISAM LOAD Subroutine 
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ISAM ADD (CHART MU) 

Description of Function 

The ISAM ADD subroutine has three entry 
points : 

ISADO Entry point for the open function, 
ISAD Entry point for the ADD function, 
ISADC Entry point for the close function, 

and is used to add records to an indexed- 
sequentially organized disk file. 

Description of Operation 

ISADO ; This entry point begins by checking 
tye type code in the DPI table to ensure 
the file is an ADD type (/OOO) . A diag- 
nostic is issued if the type code is in- 
correct. The index buffer address is 
checked to ensure it is on an even word 
boundary and diagnosted if it is incorrect. 

Next the ISAM file label is read into the 
index buffer. The key length and record 
size from the label is compared with the 
key length and record size in the DFI 
table; if they are not equal a diagnostic 
is issued. Otherwise, the information 
contained in the ISAM file label is moved 
to the DFI table. 

The first sector of index is then read in- 
to the index buffers, the index entry 
pointer is set, the index entry number is 
set to 1, the add record area is blanked 
out and the return code is set to indicate 
the file is opened. The routine then re- 
turns to the calling sequence. 

ISAD ; This entry point is entered each 
time a new record is to be added to the 
ISAM file. Upon entering the routine, the 
return code in the DFI table is checked to 
determine if the file is open, or if there 
are any terminal type errors in the return 
code. If the file is not open or if there 
are terminal errors, a diagnostic is is- 
sued. Next the index entry to govern the 
new record is located, and from that entry 
it is determined where the new record is 
to be placed. This new record can be 
placed in either of the following; 



When the new record is to be placed in the 
Prime Data area, the routine searches the 
cylinder, sector by sector, until the se- 
quential location of the record is found. 
The last record on this cylinder is then 
moved to the next available overflow sec- 
tor and the index is updated. 

The records are then shifted one record 
location at a time to the right until the 
location of the add record is vacated. 
The add record is then moved into this 
location and return is made to the calling 
sequence. The addition of add records to 
the Prime Data area is done in this fash- 
ion so that records will not be lost in 
case of a CPU or disk error during an add 
function. Duplicate records can occur 
with this method. 

When the new record is to be placed on the 
overflow area, the routine searches through 
the chain of overflow records until the se- 
quential location of the new record is 
found. The new record is placed on the 
next available overflow sector and either 
the index is updated or the sequence- link 
control fields of the records are updated 
to keep the chain of overflow records in 
sequence. The sector addresses in the in- 
dex or sequence-link control field are 
relative sector addresses from the begin- 
ning of the file. The routine then re- 
turns to the calling sequence. 

Before each non-error return, the add re- 
cord area is blanked out. 



1. 
2. 



P.D. area, or 
Overflow area. 



ISADC: This routine builds an updated ISAM 
file label in the index buffer and writes 
it on the first sector of the file. The 
routine sets the return code word in the 
DFI table to indicate the file is closed 
and returns to the calling sequence. 

Calling Sequences 

LIBF ISADO 

DC Address of the DFI table 

LIBF ISAD 

DC Address of the DFI table 

LIBF ISADC 

DC Address of the DFI table 



Part Two: 1130 RPG Object Program 171 



Word 


Contents 


0J,2 


DSA 


3 


The key length in characters. 
Maximum length is/0032. 


4 


The length of the record in words. 
The maximum entry is /0140 (one 320- 
word record). 


5 


The address of the index buffer. 
This address must be on an even -word 
boundary. 


6 


The address of the record being added to 
the file. 


7 


/OOOO to identify the ISAM add routine. 


8 


The index entry number in process. 


9 


The return code * for this operotion. 


10 


The prime data record number in process. 


n 


The address of the index entry. 


12 


The number of index entries per sector. 


13 


The index entry length in words. 


14 


The number of records per sector 


15 


The record number of the last prime data 
record processed. 


16 


The number of the last index entry for the 
file. 


17 


The sector address of the last prime data 
sector . 


18 


The sector address of the last index sector. 


19 


The sector address of the next overflow 
sector. 


20 


The record number of the next overflow 
record . 



*Return codes for ISAM ADD are as follows; 
Return Code Meaning 



/5555 
/8030 
/8031 
/8032 

/8033 

/8034 
/8035 
/8036 
/OFFF 



File is open 

Not an add function 

File is not open 

Key length in DFI table not same as 
key length in label 

Record length in DFI table not same as 
record length in label 

Key is presently on file 

Overflow area is full 

Index buffer not on even -word boundary 

File is closed 



Table 16. DFI Table for the ISAM ADD Subroutine 
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ISAM Sequential (Chart MV ) 

Description of Function 

The ISAM Sequential subroutine has four 
entry points: 

ISEQO Entry point for the open function, 

ISETL Entry point for the set lower limit 

function, 

ISEQ Entry point for the retrieve/update 

function, 

ISEQC Entry point for the close function, 

and is used to sequentially retrieve/update 
records on an ISAM file. 

Description of Operation 

ISEQO ; The open entry point begins by 
checking the type code word in the DFI 
table to ensure it is a sequential process- 
ing type file. A diagnostic is issued if 
the type code is incorrect. Next the in- 
dex buffer address and data buffer address 
are checked to ensure they are on even- 
word boundaries and a diagnostic is issued 
if they are incorrect. 

The ISAM file label is read into the index 
buffer next. The key length and record 
size from the label are compared with the 
key length and record length from the DFI 
table to ensure they are equal. Again, a 
diagnostic is issued if either is incor- 
rect. The needed information is moved 
from the label to the DFI table, and the 
first sector of index is read into the 
index buffer. 

The index address pointer is set to the 
first entry and the index entry nijmber is 
set to one. The prime data number is then 
set to zero, the return code is set to 
5555 to indicate that the file is open and 
the routine returns to the calling se- 
quence. 

ISETL ; ISEQ is entered next if the file is 
to be processed from the beginning. If 
the processing is to begin at a lower lim- 
it, the ISETL entry point is entered. In 
this routine, after a check to see if the 
file is open, a search of the index is 
performed until the entry governing the 
low limit key is found. A test is per- 
formed to determine if the low limit re- 
cord is located on the prime data or the 
overflow area. The determined area is 
searched until the record or the next 
higher record (if low limit is not on 



file) is found, and if the record is in the 
overflow area, a switch is set to indicate 
the record is in that area. The SETL 
switch is set on, the PD record number and 
pointer are set to the found record, the 
index pointer and number are set, the 
update-write switch is set off, and the 
routine returns to the calling sequence. 

ISEQ ; This entry point is entered to se- 
quentially retrieve/update records on an 
ISAM file. This routine starts by making 
sure that there are no terminal type errors 
in the return code. If the SETL switch is 
on, it is turned off and the routine re- 
turns to the user because the record is 
presently available from the ISETL routine. 

Next, an update with a write is checked 
and if this condition exists, the record 
is written and the return is to. the call- 
ing sequence. Next, the record n\amber is 
checked; if zero, which indicates the first 
time, the first prime data sector is read 
and the record address and number are set. 
If the record number is not zero, the over- 
flow switch is checked and if it is off, 
the next record is retrieved from the prime 
data area except when end of cylinder, in 
which case the record is retrieved from the 
overflow chain or from the next prime data 
cylinder. 

If the overflow switch is on, the next re- 
cord is retrieved from the overflow chain. 
If the present record is the end of over- 
flow chain, the next index entry is re- 
trieved, the prime data sector is read in, 
and the record address and number are set. 
After any record is retrieved, end of file 
is checked and if found, the return code 
is set to hex FFFF. 

ISEQC ; The routine at this entry point 
causes the file to be closed by writing a 
sector if an update has been requested 
but no write has been performed yet. The 
return code is then set to OFFF to indicate 
the file is closed and a return is made to 
the calling sequence. 

Calling Sequences 

LIBF ISEQO 

DC Address of the DFI table 

LIBF ISETL 

DC Address of the DFI table 

LIBF ISEQ 

DC Address of the DFI table 

LIBF ISEQC 

DC Address of the DFI table 
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Word 


Contents 


0,1,2 


DSA 


3 


The key length in characters. 
Maximum length is/0032. 


4 


The length of the record in words. 

The maximum entry is/0140 (one 320- 
word record). The record length must 
be the same as the record length in the 
file label . 


5 


The address of the index buffer. 
This address must be on an even -word 
boundary. 


6 


The address of the data buffer. 
This address must be on an even-word 
boundary. 


7 


/OOOl to identify the ISAM sequential re- 
trieve routine. 

/OOIO to identify the ISAM sequential up- 
date routine. 


8 


The address of the key hold area if proces- 
sing starts at a point other than the first 
record in the file. 

If the entire file is being processed, the 
value is/0000. 


9 


The return code * for this operation. 


10 


The address of the record in process. 


11 


The address of the index entry used to 
locate the record. 


12 


The number of index entries per sector. 


13 


The index entry length in words. 


14 


The number of records per sector . 


15 


The update-write indicator. 


16 


The number of the index entry in process. 


17 


ISETL switch to indicate low limit record 
found. 


18 


The internal switch used to indicate that 
the last record in the overflow area has 
been found. 



Word 


Contents 


19 


The read/write indicator. If the routine 
type (position 6) is retrieve, this entry 
should be /OOOO. If routine type is up- 
date, this entry is /OOOO for retrieve 
and /OOOl for update. 


20 


The prime data record number in process. 



* Return codes for 
Return Code 
/5555 
/8040 

/8041 
/8042 
/8043 

/8044 

/8045 
/8046 
/FFFF 
/OFFF 



ISAM sequential are as follows: 

Meaning 

File is open 

Not a sequential retrieve or update 
function 

Index buffer not on even-word boundary 

Data buffer not on even-word boundary 

Key length in DFI table not same as 
key length in label 

Record length in DFI table not same as 
record length in label 

File not open 

Write before read on update 

End of file 

File is closed 



Table 17. DFI Table for the ISAM Sequential Subroutine 
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ISAM Random (Chart MW) 

Description of Function 

The ISAM random subroutine has three entry 
points: 

ISRDO Entry point for the open function, 
ISRD Entry point for the retrieve/update 

function, 
ISRDC Entry point for the close function, 

and is used to randomly retrieve/update an 
ISAM file. 

Description of Operation 

ISRDO ; The routine at this entry point be- 
gins by checking the type code to ensure 
the file is random retrieve/update. If 
incorrect, a diagnostic is issued. 

Next the addresses of the two buffers are 
checked to ensure they are on even-word 
boundaries. If either is incorrect, a 
diagnostic is issued. The ISAM file label 
is read into the index buffer and the key 
length and the record length are checked 
against the entries in the DFI. If they 
are not the same, diagnostics are passed 
back to the user. Information from the 
label is then moved to the DFI and the cor- 
rect word counts are placed in the index 
and data buffers. 



If the condition is not update with write, 
a check is made of the first- time switch. 
If this switch is on, a search is made of 
the index from the beginning. If the 
switch is off, the requested record key is 
checked against the present index entry. 

If the key is less than the present index, 
the search begins again from the first in- 
dex entry. If the key is equal to or 
greater than the present index, the search 
continues from this point. When the cor- 
rect index entry is found, the key of the 
requested record is compared against the 
prime data key in the index entry to deter- 
mine if the record is on the prime data 
area or in the overflow chain. 

When this has been determined, a search is 
made of the area. When the record is found, 
the address of the record is set and the 
routine returns to the calling sequence. 

If the record is not found, the return 
code is set to indicate no record found 
and the routine returns to the calling 
sequence. 



The first index sector is read and the 
pointers are set to the first index entry. 
The first-time switch is set on, hex 5555 
is placed in the return code to indicate 
the file is open, and the routine returns 
to the calling sequence. 

ISRD ; The routine at this entry point 
starts by checking the return code for any 
error that would hinder processing. If 
none is found, a check is made for an up- 
date file with a write. If found, the 
write is performed after which the routine 
returns to the calling sequence. 



ISRDC ; The routine at this entry point sets 
the return code to indicate that the file 
is closed and returns to the calling se- 
quence. 

Calling Sequences 

LIBF ISRDO 

DC Address of the DFI table 

LIBF ISRD 

DC Address of the DFI table 

LIBF ISRDC 

DC Address of the DFI table 
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Word 


Contents 


0,1,2 


DSA 


3 


The key length in characters. 
The maximum length is /0032. 
The key length must be the same as the 
key length in the file being accessed. 


4 


The length of the record in words. 

The maximum entry is /0140 (one 320- 
word record). The record length must be 
the same as the record length of the file 
being accessed. 


5 


The address of the index buffer. 
This address must be on an even-word 
boundary. 


6 


The address of the data buffer. This ad- 
dress must be on an even-word boundary. 


7 


/OlOO identifies the ISAM random retrieve 

routine. 
/1 000 identifies the ISAM random update 

routine . 


8 


The address of the key hold area contain- 
ing the key of the record to be processed . 


9 


The return code * for this operation . 


10 


The address of the record in process. 


11 


The address of the index entry used to 
locate the record. 


12 


The number of index entries per sector. 


13 


The index entry length in words. 


14 


The number of records per sector. 


15 


The prime data record number. 


16 


The number of the index entry in process. 


17 


A first-time switch. This switch is set off 
after one record has been processed. 


18 


An internal switch used to indicate the 
record found is in the overflow area . 



Word 



19 



Contents 

A read/write indicator. If the routine 
type (position 6) is retrieve, this entry 
should be /OOOO. If routine type is up- 
date, this entry is /OOOO for retrieve and 
/OOOl for update. 



*Return codes for ISAM random are as follows: 
Return Code Meaning 

/5555 File is open 

/8050 Not a random retrieve or update 

function 

/8051 Index buffer not on even -word boundary 

/8052 Data buffer not on even -word boundary 

/8053 Key length in DFI table not same as 

key length in label 

/8054 Record length in DFI table not same as 

record length in label 

/8055 File is not open 

/8056 Write before read on update 

/8057 Record not on file 

/OFFF File is closed 



Table 18. DP''! Table for the ISAM Random Subroutine 
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CORE DUMP TRACE OF AN OBJECT PROGRAM 

This section is presented as an aid to 
those persons who have occasion to examine 
areas of a core storage dump of an RPG ob- 
ject program. 

Figure 24 shows the source statements for 
a disk to printer program and four maps 
which are produced by the compiler. These 
maps show the hexadecimal address of indi- 
cators, field, literals, and key routines 
relative to the beginning of the generated 
mainline program. These maps are identi- 
fied by (1) , © , , and in Figure 24. 

The Core Load Builder, if requested, will 
produce a core map showing the actual 
core locations for the core load, the sys- 
tem subroutines address and the mainline 
program execution address. These ad- 
dresses are identified by (^ and @ in 
Figure 24. 

To find the beginning of the RPG generated 
mainline program, subtract hexadecimal 11 
from the execution address. The actual 
core load addresses for the RPG indicators, 
fields, literals and key routines are 
calculated as follows: 

• Subtract hexadecimal 11 from the execu- 
tion address and then add the address 
of the desired indicator, field, liter- 
al, or key routine. 

For example, the actual address of the To- 
tal Lines routine (Figure 25) is calcu- 
lated: 



• 020F 

- Ill 

OlFE 

047D 

057B 



(execution address) 



(total lines address) 
(actual core address) 



The RPG Core Image Header is located at the 
execution address minus hexadecimal 002F. 
(Further information on the Core Image 
Header is contained in IBM 1130 Disk Mon- 
itor System, Version 2, Programming and 
Operator's Guide , Form C26-3717.) 

The pseudo register area is located at the 
execution address minus hexadecimal 0010. 

The 28 word Key Routine address (FAT) table 
is located at the execution address plus 
hexadecimal 0002. 



The fixed length routines (Fixed Driver) 
of the mainline program are located start- 
ing at the execution address plus hexa- 
decimal OOIE. 

The variable length routines of the main- 
line program start at the execution ad- 
dress plus hexadecimal 013F. 

To calculate the address of the current 
I/O area for a file, PRINT, defined in 
Figure 24 will be used as an example. 
Since this is the second file defined in 
the program, the lOD address for this file 
is given in the key addresses map as File 
Seq 2. (File Seq and lOD are interchange- 
able in meaning and usage.) The address 
of File Seq in this case is hexadecimal 
0224. 

To this address must be added the execution 
address minus hexadecimal 11: 



0224 

020F 

0433 

11 



(address of File Seq 2) 
(execution address) 



0422 (address of the PRINT lOD) 

Finally, the address of the current I/O 
area is found in word4 of the lOD, so a 
3 is added to the lOD address and location 
0425 contains the address of the current 
I/O area for the PRINT file (0 3E6) . 

The address of the DFI table for a disk 
file may be found by obtaining the lOD ad- 
dress for the file and adding hexadecimal 
6 to that address. Again referring to 
Figures 24 and 25 INDISK is the first file 
defined in the program and its address 
(0 3A4) is listed for File Seq 1 under Key 
Addresses. To this address is added the 
execution address minus hexadecimal 11 to 
obtain the lOD address for this disk file. 
To the lOD address a 6 is added to obtain 
the location that contains the address of 
the DFI Table. The following steps sum- 
marize this calculation: 

• 03AE (address of File Seq 1) 
+ 02 OF (execution address) 
05BD 

- 11 

05AC (address of lOD for INDISK) 

+ 6 

05B2 (address of DFI table for 
INDISK FILE) 

Further information on the format and con- 
tent of DFI tables is contained under Li- 
brary Subroutines . 
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Vl-0 1130 RPG 



SEQ NO PG LIN 



SPECIFICATIONS COL 6-74 



0001 
0002 
0003 
0004 
0005 
0006 
0007 



FINDISK 

FPRINT 

IINDISK 

I 

OPRINT 






IPE F 
F 
AA 01 


120 
120 


D 1 


01 



DISK 
PRINTER 



1 120 RECORD 



120 
20 'RPG' 













INDICATORSf 


j; 












IND 


DISP 


IND 


DISP 


IND 


DISP 


IND 


DISP 


IND 


DISP 


IND 


DISP 
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Figure 25. Analysis of a Core Dump (Part 1 of 4) 
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APPENDIX A: OBJECT TIME FORMAT OF DATA FIELDS 



All data at object time will appear in core 
storage in the following format: 



Fields in an I/O area have the follow- 
ing format: 



LLdd 


OOZ^D^ 


OOZ2D2 


OOZ3D3 




OOZ D 
n n 



Z,D, 


^2^2 





Z D 

n n 



where LL = eight bits representing n-1 in 
binary 
dd = /FF for alphameric fields, or 
eight bits representing the 
number of digits to the right 
of the decimal point for niomer- 
ic fields. 

maximum of 14 words for n\americ 
fields, or maximum of 256 words 
for alphameric fields. 

= any hexadecimal quantity from 
/O to /F. 

= any hexadecimal quantity from 
/O to /F. 



n = 



D 



• Operations on numeric fields recognize 
only the D's and consider Z^ as the 
sign of the number. Zn = /D is recog- 
nized as negative. Z^ = any other 
hexadecimal number is considered posi- 
tive. The result of an arithmetic 
operation (ZADD, ZSUB, ADD, SUB, MULT, 
or DIV) forces /F for all Z's except 
Zn = /D for negative results. 

• Numeric literals in the source program 
are stored with Z's = /F. 



The ZiDi may occupy either the first 
half of a word or the second half of 
a word. 

An exception occurs to this format when P 
(packed) is specified for a disk file. 
The following is the "packed" format of a 
numeric field in the I/O area: 



DjDj 


^3^ 




D Z 

n 



Z is the sign of the packed n^umber. The 
quantity D^Z may occupy either the first 
half of a word or the second half of a 
word. This format requires a leading /O 
for padding for fields whose length is 
even. When this format is "unpacked" to 
the form previously shown, Z " s=/F will be 
inserted. 
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